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1 - latrodueeiAo 

£1 IntArpreca OPA*BASIC 3.0 la brlnda un aspllo lanfuaja da 
prograaacido con un confortabla mtomo da daaarrollo. Eata dialacio 
avanzado da Baalc dlapona da un adicor aflclanta y valoa. qua aoatiana 
la craacldn da prograaaa aacruccuradoa. 

El Intdirrata ofreca una conforcabla poaibllldad da tracaaienco da 
arror a cravda da cosandoa aapaclalaa para la bdaquada y allalnacidn 
da errorat (por aj. la procadura TBON y TRACES). Los languajas 
Mdamoa da prograaaclOn aa caraccarlsan por loa dlfsrontas coaandoa 
qua paralcen aacrlblr profraasa aatructurados. El adltor aoatiana 
adaaAa la profraaaclOn aatructurada aadlanca sanqrlaa autoadticaa da 
coaandoa an aatruccuraa da ropatleldn y an condlclwiaa. AdaaAa. loa 
aubprofraaaa sa puadan repraaancar an al llacinf dal prograaa por 
aadlo da una anotacldn para rasarvar al lugar, an la cual aa pueda 
"dasplatar* o ‘plagar* al aubprorraaa al sa pulaa una tacla. 

En cuanto a laa inacrucclonas condlclonadaa sa agrasan a loa coaandoa 
IP-ELSB-Qn>IP. qua ya axlstlaa an varslooaa ancarloras da 0PA*BA31C, 
ocroa coaandoa pars blfureaclonas adlclplaa (ELSE IP. SELECT-CASE). 

Para poder Poraular si;bprograaas aalaca la poaibllldad da unlflcsr 
procadlalsntoa y Tunclonaa (nuavo an al 3*0) • En aata caao sa puadan 
tronsfsrlr tanto valoraa da varlablaa eooo laa alsaaa varlablas. 
AdenAa da loa clpoa da ascruccuraa da rapatlcldn conocldoa do 
varslonaa anterloras da CPA-BASIC (FOR-NSCT. REPBAT-tmTIL. MflLE-UOID 
y DO-LOOP) aa dlapona ahora da coaandoa aaplladoa para loopa cooo OO* 
UKTIL, 00-WKILB. LOOP-UKTIL y LOOP-UHILE. 

La poaibllldad da llaaar ruttnas dal alscaaa oparatlvo 
(QO(D0S.8105.XB10S) otorga una prograaaclOn carcana al slacaaa. 
Nuchas da aacas funclones caablAn sscAn s dlspeslclOn an feraa ds 
instrucclonas slaplss. AdeaAs as poslbla la prograaaclOn aanajada con 
Incarrupc a cravAs da EVERY y AFTER. Subprograaaa aacrlcos an 
asaaablar y C aa puadan Intagrar con coaandoa coao por aJ. RCALL. C: y 
MONITOR. 

Las prlnclpalss nicinss da VDI y todaa laa funcloosa AES (por sj. 
funclonss do atelnlstraclOn do oenOs, ds voncanas y da fotmilsrlos) sa 
puodan apllcar coao funclooas incorporsdas. Junto con coaandoa qua 
alapllflcan Is IxtcorporsclOn da CEM. todoa eacoa eoaandos facilltao al 
daaarrollo ds progrsasa qua daban tsnar una suparflcla da trabajo (Bi. 

El IntArprata CFA-BASIC 3-0 dlapona da una vardadara arltaAtlca da 
mjaeros antaroa qua brlnda una alta valocldad da cAlculo. asl coao da 
una arltaAtlca da punto flotanta con una alavada praelalte da cAlculo 
U3 daciaalaa). 

Coaparado eon las varslonaa 2.xx dal GFA-8ASIC aa agragaron otroa 
tlpo a ds variables (BYTE. WORD) y oparaclones da bits (BCLR. BSBT, 
8TCT. BCHO. SKL, SMR. ROL, ROR atc.). Prograaas da grAflcoa puadan 
hacer uao da rutlnas da Llna-A, laa cu^ea astAn l^laaantadaa coao 
coaandoa. 
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B1 coocspto da Mta aanual 

E«te aanual coaienzA coo una breva dascrlpcidn del lenfuaje de 
profreaecidn GPA-BASIC 3-0. Luefo al(ue wta expLlcecldn de le 
eecructurm de eete eennel (le cual eetA leyando JuataMOCe) y una 
Introduecldn al uao dal InUrprece CPA*BASIC. K1 eapitulo flnallza eon 
una deacrlpcldo de loa puntoa qua ae daban raapetar cuando ae aauaen 
prosraaaa aacrltoa en varalonea anearioraa del OFA-BASIC. £1 alfulance 
eapitulo daabrlbe loa coaandoa para al uao dal editor. Todoa loa deeAa 
capltuloa coociao«i unnrlalannfi una deaeripcidn de loa coaandoa. 
inatrucclonaa y fuacionaa dal (7A-BASIC 3*0. Satda aa ban ordanado da 
acuardo a au cootanldo, expllcAndoaa eoojuntaaanta conceptoa 
asparantadoa (por aj . HIM y MAX) . Eo el anaao aa ancuentra un raauaen 
alfabdtlco da loa coaandoa y funeionaa, eoa laa raPeranciaa a lea 
cortepondiancaa pdglnaa del aanual. Gataa tlanan la aifuiente 
aatructura: 

- IndieaeiOn da la alntaxla 

- Oaaerlpcldo da loa tlpoa peraltldoa de pardaetroa 

• Taato aelaratorio 

• EJaaplo 

Gn la indicacidn da la aintaaia aa hao aarcado antra corchacea loa 
pariaatroa opcionalea. 


LEFT1(aS[.x]) 

En al OFA'BASIC hay coaandoa o inatrueeionea y funeionaa. Loa coaandoa 
0 Inatrucclonaa no retoman ninfiin valor: 

LINE 100,100.200.200 

Laa funeionaa an eaablo davualvan un valor. Eat# valor puade ear 
aalpiado a alguna variable, incorporado al ctlculo da una axpraaiOn o 
avidanclado por aadio de PRINT. A continuacldo alfunoa eje^loa: 

a - ASC(*A*| 
h • ASC{’A") • 32 
PRINT ASC(*65*) 

PRINT ASCrA’) 

En aata aanual no ae aclara an la indlcaciOn da alntaaia que laa 
funeionaa davualvan un valor. Eato aurga da la daacripclOn da laa 
funeionaa. Coao indicaeldn da aintaxia aolo aa indlca por aJ. ASC(aS). 

ParAaatroa da libra alacclOn. da loa cualaa puadan flgurar cualquiar 
cantidad en una Inatruceidn (por aJ. DATA), taablta ae praaantan antra 
eorcbacaa. Gn Aatoa flgumo doa pariaatroa. aaguidoa da tree puntoa. 
por aJ.; 

DATA[».y,...] 

La indicaeldn dal tipo da parAaatro pamitldo flfura bajo la 
indleacidn da la alntaxla. Para aatoa tlpoa aa avlaan laa ei(ulentea 
abreviaturaa: 

avar Variable aritaaclca. Sa trata da una variable nuaerlca da 
cualquiar tipo. 
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Mxp ExpnalOn arluAtlca (arlthaatlc •xprMtIon). Bata si una 

axpraaldn da cualqular (redo da eoaplajidad, qua producs un 
ni^ro. Taablte puada traearaa da una eonataata ( un nOaaro) o 
da una variable ( laa varlablaa son un grupo parclal da laa 
axpraalonaa) . BJa^loa da axpraalonaa arlMtleaa aon: 

aj 

3 

2*aX*ASCCA') 

•var Variable serine. Esta as una variable da cadana da caractaraa. 

Eats eipo da variables Ciena la camlaacidn S. 
aaxp Exprasidn da cadanai da caractaraa (string axpraaalon). Baca 

axpraaidn puada tanar cualqular gra^ da covlajldad y daba dar 
un string. Puada tratarsa an asta caao da una conatanca (un 
taxto antra coalllaa) o una variabla da cadana da caraceares. 
EJaaploa da axpraalonaa string aon: 

aS 

■Teat" 

U»'Pruaba'«‘LEmCHanual*.b) 
ivar Variabla enters (Intagar variable), 
laxp Eaprasldn eneara (integer exprasslon). 

baxp Exprasldn Idglca (boolean expression). 

Ea laportanca, qua an algunoa paranacros nuaSricos no sa Indlqua 
cualqular tlpo da variabla nuadrlca. SI principal ajaaplo para asco 
aon laa dlracclonaa. Las dlracclonea aa daban indicar por lo aenoa an 
una variabla da cuatro byta: o saa no sa paimltan varlablaa boolean, 
byta 0 word. Daspuds da la dascripcldn da loa pardaacroa paraicidoa 
sigua la axplicaeldn da los coaandoa a inacrueclonaa. All! sa axpllca 
el algnlflcado de dacoa y sue dlferantaa perdaatroa . 

La axplicaeldn da un coeando o Inatruccldn ae flnallxa con uno o 
varioa ejaaploa. Cade uno da ascos ejaaploa aa daba Ingrasar an al 
editor a inleiar a travda da RUN (Shirt * no o actlvacldn da RUN an 
la tone da aanil) . Dacrda da eada coeando a inatruccldn aa Indlca qud 
afecto produca. 

Eata concepto da daacripcldn da coaandoa a Inatrueclonaa solo aa 
aodlflea algo an al caplculo aobre blbllotecas ABS. Aqul aa Indlca el 
noabre dal coeando o Inatruccldn eorreapondlanta, luego sigua la 
daacripcldn de au funcldn. Racldn anconcas aa Indlca la iintaxla da la 
inatruccldn coo la axplicaeldn da loa dlfsrancaa pardeatroa. Racldn al 
rinel dal capltulo sobra blbllotacaa AES aa p raa antan varioa prograaaa 
ala axcanaos an rorea da aja^loa. 

Eata aodiricacldn sa daba a qua euchoa coaandoa a inatrueclonaa da 
asa capltulo solo trabajan convanlantaaanta con otros coeandoa a 
inatrueclonaa. El uso da laa dlferantaa inatrueclonaa aa daeostrado an 
los raspacclvoa prograaaa da ajavlo. 

El sanual flnallxa con una colaccldn da tablas y una lists ordenads 
alfabStlcaeante da todos los coeandoa a inatrucciowa. an la cual sa 
Indlca el nuaaro da pSglna denda aa daacrlba al taspectlvo coeando o 
Inatruccldn. 
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El prlMr comcIbImM eoa «1 OFA-BASIC 3>0 

Eata aparcado aa ha aacrlto para aqualloa uauarloa dal GPA*BAS1C 3-0 
qua haata al aoaento no han ten! do ninguna axparlancia con lancuajaa 
da profraaacldn. Aqualloa qua ya han trabajado coo varalonaa 
aaterloraa, puadeo aaltaar aata aparcado. 

El dlaco dal prosraaa da GPA-BASIC no tlena protaccldn da c^la. Uacad 
daba crear an prlaar lu(ar \o>a copla da aafurldad dal dlaco original , 
La daacrlpcido del proceao da coplado la ancuacura an al aanual da au 
ordanador. Coloqua ancoocaa la copla dal disco dal prograaa an la 
dlsquatara a arranqua al iotirprota OPA-BASIC. 

En la pantalla aparace antoocas al adieor, an al cual puada ascrlblr 
sue prograaas. ESCRIBA ahors las slgulantaa llnaas dal prograaa y 
pulsa la taels Ratum da s puAs da ingrasar csda llnaa. 

Para alio no nacaslta ascrlblr los aspacloa an bianco, qua flguran 
delanta da algunaa laacrucclooaa. El adltor sa ancarga da ubicar 
autoaAtlcaaaota laa laatntcclonaa dantro da laa aatructuraa da 
rapatlcldn. Taapoco aa aacaaarlo raapatar las ainiisculas y aayusculas 
tl Ingresar llnaas da santancla. SI abandona una llnaa con Raturn, 
autoaAClcaaenca sa aacrlben laa alnilaculas y aaydsculaa. 


DEFPIU. 1.0 
REPEAT 

UHILE HOUSEK'l 

P80X MX6EX.HOUSEY.H0US£X*3O.HOUS5Y*3O 
WSJD 

UKTIL N0USEK«2 

En al axtraao daracho suparlor da la pantalla aneuentra la palabra 
'Run*. Para Inlelar al progrsM saAala eon la flacha dal ratdn aata 
palabra y pulaa la tacla izquiarda dal ratdn. 

Cntoncaa aparaca una pantalla blsnca. sobra la cual sa vlausllza la 
flaehs dal ratdn. SI stera pulsa is tacla Izquiarda dal ratdn y 
daaplaza al ratdn sobra la aaas, puada dlbujar sobra la pantalla. Coao 
'pineal* sa usa un ractdngulo. Ls pulsacldn da la taels darachs dal 
ratdn produca la rioallzacidn dsl progrsas. Entoncas apareca un 
vantana da alarta an la pantalla. qua contiane al aansaje 'Pin dal 
prograaa*. Ublque al cursor an Ratum y pulse la tacla Izquiarda dal 
ratdn. A continuacldn sa vuslve a ancontrsr en el adltor. 

Cdao funclona asta progransT La Inatruccldn P80X paralta dlbujar 
ractangulo s en el aedlo dal prograaa. La prlaar Inatruccldn dal 
prograaa(DffPIU. 1.0) Indlca qua sa rellana al Interior da cada 
ractdngulo. Los cuatro partaetros dafinan los axtraaoa do aata 
ractdngulo. 

Las varlablaa HOUSEX. NDUSBC y NOUSSy contlsnan Inforaaclonas sobra al 
ratdn. NOUSSK dice, qud tacla sa asCA pulasndo an cads aoaanto. En 
asta caao signifies H0USQC«1 la tacla Izquiarda y N0USQ(*2 la deracha. 
En HOUSOC y HOUSEy figure la poslcldn x a y dal dal cursor dal ratdn 
sobre la paacalls (CMpartr Rsprasantacldn grdflea, DEFNOUSE). 

Los rastantss coaandos a Instrucclonaa (R£FEAT, WHILE, WO<D. infTIL) 
■on Inatrucclonas da loopa. El lo^ da Isa Instrucclonas WHILE 
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HOUSQC*! y WSfl) la pued* eraduclr com 1b fomlmcldn *r«plta. haata 
qua SB pulBB la tacla Isqularda del ratdn*. £1 loop axcarior da Isa 
tnscnjcelonaa AffEAT y UNTIL M0USBC«2 algBlflcB *r«plta, haaca qua sa 
pulse la tacla darocha dal ratdn*. Coao no flgura nlnsuna otra 
Inatruecldn decrda dal coaando WTIL, al profraaa flnsllza daapuda da 
abandonar al loop REPBAT*UNT1L. 

Xngresa la algulanta llnaa da aantencia errdnaa dacrAa da la lUtlaa 
lines dal prograaa. an la cual falta la 1 da la inatruecldn PRIin': 

prat *Taet* 

51 pules la tacla Ratcuo para cooflrasr la inatruecldn y abandons la 
llnea, suena tins aaAal aciiatlca y an la aafunda llnaa da la panealla 
aparaca el aanaaja ‘Error da slataxla*. 

£1 editor ravlsa por lo tanto durst ta la creacldn dal prograaa al las 
Inacnieclenas aa ingr aa an corractManta. Vaya ahora eon al cursor a la 
leers r y pulse tras vecea la tacla Delaca. b la llnaa da profraaa 
rifura atera dnlcaoanta: 

p*Tast“ 

SI ahora pules la tacla Return, pueda abandonar la llnaa. puaa la 
letrs p sa raconoee autoodtlcaaanta coao abreviatura pare la palabra 
da la inatruecldn PRINT. 

Eato dabarla ear suficlonta coao prloer contocto con al Intdrprata. 
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El MUCor 
PUBdMMatO* 

SI tdltor dal CPA-BASIC 3.0 no aa un adicor da texeo convenelonal . 
aim qua fua craado aapaclalaenta para al dasarrollo da prograaaa. Por 
aja^lo. duranta la craaclte dal procraaa ya aa raconocan aantanclaa 
■Incdotlcaaenta arrdnaaa. Adeadi. »a ublcan aueoadcicaBante loa co aa ndoa 
dantro da aatruccuras da repacicldn (Itxvs) a con inatrucclonaa 
cot^clonadaa y laa abravlaturaa da coaandoa aa tranaPiaran al noabra 
coaplato dal coaando ( per aj. p an PRIKT). 

Al ascriblr un llacado da prpcraaa aiaapra aa raallza un concrol da 
■Intaala, euando aa daba abandonar una llnaa. SI la aantenela an aaca 
llnaa no aa eorracca daade al pun to da vlaca aintdctleo . aotoncea 
aparaca an la safunda liaaa al aenaaja ’Syntax Error*. Pljando al 
alabolo da coaantarlo (') al coalanzo da la llnaa. data aa tranaforaa an 
coaaotarlo. Daapuda aa puada aba n dona r la llnaa. 

Eo cMa llnaa dal procraaa aOlo aa puada Increaar una aancancla. Datrda 
da aata aantancla puada aparacar adaada un coaantarlo. Bata aantancla 
no puada tanar aaa da 255 caractaraa. Cuando una llnaa lupara loa 80 
earaccaraa. au coalanxo daaaparaca an al flanco Izqulardo da la 
paatalla. Por lo taoto, adlo aa haca al *acrolltnf* da aata dnlca llnaa. 

Al abandonar una llnaa da aancancla, aa raallza un control da alncaxla 
( var ada arriba) y aa da Porsaco a la llnaa. 0 aaa. por aj. hay qua 
allainar aapacloa an bianco auparPluoa (por ej. da 2 • 2 raaulca 
antencea 2*2) y ascriblr laa palabras da laa aantanclaa y loa noabraa 
da laa variablaa aaftin al DEPLIST ccnactado. SI aa prasalacciond al 
DBFLICT 0. por aj.. todaa las palabras da laa santanclas sa aacriban 
an aayilacula y codoa loa noabraa da las varlsblas an alnuacula. 


U bloqua da taclaa dal curaor 

SI cursor so puada dlrlclr a travds dal bloqua da taclas dal curaor. la 
Inatalacldn da laa taclaa aa: 


Placha haela la Izqularda: 
Placba haela la daracha 
Placha haela arriba : 

Placba haela abajo 


al cursor aa daaplaza un cardetor d Id 
izqulordd 

al curaor aa daaplaza un cardetar a la 
dacacha 

al cursor sa daaplaza una llnaa haela 
•rrlba 

al cursor sa desplaza una llnaa haela 
abajo 


Loa Bovlalantoa. dal curaor aacdn aoaatldoa a alcunaa llaltacionaa. Ccao 

sa puada ublear un eardetar daerda dal ultlao cardecar da ipia llnaa y 
una llnaa por dabajo da la lUtlaa llnaa dal profraaa. 

Cuando al curaor paaa a una llnaa. qua aa ada cortd qua la poalclOn 
actual da coluana dal curaor. al curaor aalCa al Pinal da aata llnaa. 
an lo dMda aanclena au poalclOn actual da coluana ( a dlParenela da loa 
adltoras da varslonaa ada ancifuaa da GPA-BASIC). 


Taabldn aa poalbla ublear al curaor con al ratOn. Para alio sa laAala 
con la Placba del ratOn la poalclOn desaada y sa oprlaa la tacla 
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tzquierda del raCdn. 


A 1 pulear la tacla de Inaert sa introduce una llnea an bianco entre la 
llnea lobre el curaor y la llnea del eureor. al no ae ha reallzado nlngCin 
caablo an la llnea actual. SI curaor ae ublca al coaienzo de eata llnea 
an bianco. Con Clr*ilaaa ae Have el curaor al aArfen auperlor Izqulerdo 
por debajo da la zona del aenu , con Control *Clr/Ho«a ae lleva el 
curaor al coalenzo del llatado del prosi'aaa. 

Con ayuda de la tecla Undo ae pueden revartlr caebloa en una llnea del 
propraaa. en la aedlda qua no ae ha abandonado todavla la llnea. La 
tecla Help poalbllita ’deadoblar y doblar* procedlalantoa an el 
llatado del profraaa. 

Qulere declr: cuando ae ublca el curaor en una llnea. en la cual 

aparece el coaando PROCQMJSE y luefo ae pulaa la tecla Help, entoncaa 
daeaparecen todaa laa Llneaa de aantencla an el llatado haata al 
alfulanta REnnw (Inclualva). Cn lucar da eao se coloca una flecha y 
un eapaclo en bianco ’> ' dalante del coaando PROCQXJRE. 

En eata altuacldn ttapoco ae pueden reallzar caabloa en loa noabrea del 
procadlalento 0 la llata de pardeetroa dal aubprocraaa. Para poder 
volver a var laa llnaaa de aantencla entre PROCEDURE y RETURN. ae 
deaplazB al curaor a la llnaa . qua coalenza eon la flecha y ae pulaa 
nuavaaanta la tacla Help 0 ae auprlne al cartcter ’>'. 

Eata * Doblar* (Poldlnc) de un aubprofreaa hece poaibla crear llatadoa 
bravaa y claroa, an loa cualaa aolo la ’daadobla* al aubprocraaa, con 
el cual ae trabaje en eae eoeento, Un profraea con procedlalantoa 
dobladoa puede ear ael. por ej.: 

inlt 

aaln_eenu 

> PROCEDURE INIT 

> PROCEDURE eenu_prlnclpal 

> PROCEDURE zona da eenil 

> PROCDURB cerfar 

> PROCEDURE alaacenar 

> PROCEDURE alaborar 

> PROCEDURE buaear Inforaacldn 

> PROCEDURE Boetrar lofotaaclda 

Con un procadlalanto deadoblado al procraae aa antoncea al alfulanta: 

Inlt 

aain^aenu 

> PROCEDURE Inlt 

> PfUCOWRE ■wui_prlnclpal 

> PROCEDURE zona da aend 
PROCEDURE cargar 

FILBQJCT ■•.RSC*.**.rae flcharoS 
IP NOT EXlST(rac_flcharoST 

ALStT l,*Ko axlata flchero !*.l.*latarrupclOn*.rJ 
ELSE 

IP RSRC>LOAD(r«c_ricberot )*0 

ALStr 1. 'Error en la carca del flchero !*, 1 , *Interrupci 6 n*,rS 
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Em) 

ENDIP 

EMDIP 

RETURN 

> PROCEIHIRE 

> PROCEDURE elkborv 

> PROCEDURE buscKT Informaclfin 

> PROCEDURE aostrAT luforaACiDn 

B1 taclado auaArlco 

El (eclado nuaArleo alrva norulMou para incraaar ailaaroa y algunoa 
ocroa caractaraa. Paro taablAa aa puada uaar an coablnaclDo con la cacla 
da coocrol. Su lAatalaelOo corraapooda antoncaa a la inatalacldn on 
cacladoa con NUNL,0CX cooactado ( por aj. an PC'a). La tnatalacldn aa: 


Control y k 
Control y 6 
Control y 8 
Control y 2 
Coocrol y 7 
Control y 1 
Control y 9 
Control y 3 
Control y 0 
Control y . 


Daaplaxa curaor un cariccar a la Izqulerda 

Daaplaaa curaor un cariccar a la daracha 

Daaplaia curaor una llnaa hacla arrlba 

Daaplaaa curaor una llnaa bacla abajo 

Salto al eoaianao dal profraaa 

Salto al final dal procraaa 

Paao a la pt(lna anterior 

Paao a la piclna alfulonta 

Corraaponda a Inaarc 

Corraaponda a Dalata. 


El Coclado nuairlco taablin puada trabajar an un aodo, «•> al cual iataa 
taclas Bon afectlvaa aln Control. La conautacltei aa haca a travia da 
ocraa (coaiblnaclonaa) da laa teclaa da control dal taclnto nunirlco. 


Control y - , aal coao Control y ( corraapondan a NUNLOCX. Entoncaa al 
pulaar una taela del toclado nuairlco reaulta al coaando Indlcado 
•ncerloraante con Control. El aodo NUNLOCX aa puada volvar a anular al 
aa vuelva a pulaar la alsaa cacla. 


OCraa teclaa edltoraa aa al taclado principal 

Con la taela DELETE aa puada suprialr al cariccar qua aati an la poalcldn 
dal curaor; al raaco da la llnaa •• acopla aln deJar eipaclos an 
bianco. La cacla Backapace auprlaa al cariccar. qua aa ancuaotra a la 
laqularda dal curaor y acopla el raaco da la llnaa aln deJar aspacloa 
an bianco. 


Al pulsar la cacla cab ( tabulador) al cursor aalta a la al(ulenca 
poalcldn da cabulacldn a la daracha. Eataa poalclonas aa anciwitran an 
Intarvaloa da ocho caractaraa. Control * tab Have al curaor a la 
algulnaca poalcldn da tabulacldn a la laqularda. 

Las teclaa Return y Enter hacen saltar al cursor al conlanao da la 
sKulanta llnaa. Pulaando la cacla Escape, aa pass al aodo dlracco. 

da control 


Sn los pirrafoa antarloraa ya aa han aanclonado aueboa c onandoa da 
Control. Aqul aa han da reaualr una vas aia aatoa conandoa y los 
conandoa da laa teclaa da Control no aanclonadas mill (eacapCo los 
conandoa da Coocrol. qua trabsjao Junto coo al taclado nunirlco): 
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Control « Delate suprlee la llnaa en la qua aatA el cursor 
Control • U (undelete) 

Inaerta la Unea que le suprlsld coao liltlsa con Control • Delet o 
Control * Y. Eato alrve, por un lado, para restaurar llneaa, que sa han 
suprlaido sin querer. For otro lado. sal se pueden deaplaaar o coplar 
fAcllaente llneaa indlvlduales ( por aj. para coplar: soatener la tacla 
de Control y pulsar Delete y doe vecea U) . 


Control'Y 

Control*N 


Control's 

Control's 

Concrol'K 

Control's 

Control's 

Control's 

Shlft'Control'E 

Control'? 

Shift 'Control'? 

Control'curaor izqulerda 
Control'curaor darecha 
Control'curaor arrlba 
Control'curaor abaio 
Control 'Cl r'Hoae 
Control's 
Control'Tab 

Control'C (foto) 


Suprlse la llnea que eatA en la poalcldn 
del curaoF 

Inaerta una llnea en bianco por enclaa de 
la llnea da drdan qua sstA en la poaiciOn 
del cursor { coao Insert), taablAn cuando 
se han llevado a cabo aodlflcactonea an la 
llnea. 

Llaaa al aend da bloque ( Igual que la 
tacla da funcldn ?4). 

Marca el coalenso del bloque (bloque). 
Marca el fin del bloque. 

Pasa a la pAflna anterior. 

Paaa a le pielna alguiente. 

Suatltuye texto 

Sustltuya prsfuntando con el strlnf da 
buscar y sustltulr 
(find), buses Ce.-:CO. 

Buses texto preguntando eon el string de 
buscar. 

Salta al coelanzo de la llnea. 

Salta al final de la lines. 

Paaa a la pigina anterior. 

Paaa a la pAglna alguiente. 

Salta al prliKlplo del prograaa 
Salta al final del llstado del prograaa. 
Salta a la poslcldn de tabulacldn a la 
Izqulerda. 

Abre el Indicador de nuaero de llnea para 
Ingresar un nueero de llnea ( se paaa an* 
tonces a la eorrespondlente lines) . 


Un grupo especial da Coeandoa de control hace poslble fljar y acceder 
a asrcaa en el editor. Bacas aarcas valen solo para el editor, o sea 
no tlenen nada qua ver con las aarcas que utilize COTO o RESTCHIE. 
Betas aarcas dal editor se pueden ublcar an la poslcldn del cursor 
pulsando Control y un Ndeero del teclado principal. A contlnuacldn se 
puede aaltar a la aarca deaesda oprlelendo Alternate y aste nuaero. 


Las coablnaclonea de teclas de Alternate con loa nuaeros 7*9 y 0 esCAn 
preconflgursdea. Al pulsar Alternate y 7 se salts a la Altlaa poslclAn 
del cursor antes de pasar al aodo dlrscto o antes del Altlao coaianso 
de prograaa. Alternate y 6 aalta a la poslcldn. en la que ae 

encontraba el cursor al coalenzo dal editor. Con Alternate y 0 ae 
salts a la lUtlaa potlcldn dal curaor, an que se reallaO une 
BodlflceelAn.. Alternate y 9 selte a la poalcldn, an le qua ae InlclA la 
dltlaa operaclAn de busqueda. 
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La sona da aand y laa taclaa da funclda 

En laa doa llnaaa auparloras da la pancalla dal editor aa encuentran 
doa llnaaa dal aand. Blen a la Ixqularda apareca al siabolo ATARI, qua 
cuando sa active daadobla un aend Pull>Down. Eata contleoa loa tltuloa 
dal aanu dal aiabolo ATARI y al OPA-BASIC. 

Cuando aa acciva al Itaa dal aend (7A-BAS1C3.CX] aa viaualiaan loa 
ndaeroa da varaldn eon laa doa poaibllidadaa da aleccidn: editor y aanii. 
Si aa acciva al bocdn dal editor, aa vualva al editor OFA-BASIC. Al 
alaflr al aami aa vualva al aenii Pu11*Do«q. 

El clCulo dal Band GPA*BASIC conclana loa aifuientaa Itaaa da aanu; 

Sava Salta al editor, luafo aa vlauallaa un Plla*5alact-Box. 

y aa puada inrreaar uo noabra da flcbaro, bajo al cual 
aa ha da fuardar el profraaa actual. 

Load Salta al editor, daapuAa da lo cual aa puada Infreaar 

al noabra da un flcbaro an al Flla*Salact*Box qua aa 
vlaualiaa. 

Oafllat Poalbilita la conaxldn dal aodo Oafliat a travda da un 

Alart-Box (coaparar apartado Casoa aapaclalaa). 

Koabraa nuavoa Con ayuda da aaca lean dal aanu sa puada conactar un 
Bodo, an al cual sa daba conflraar al infraso da nuavaa 
varieblaa an al profraaa actual. £sta aodo ast4 das- 
eonactado an la praaelaccldn. Cuando aa aaplaa una 
variable quo no sa ha Infrasado adn o taablfn un 
noabra da un procadialonto o do una funcldn y asto aodo 
aatA aceivo. aparaca un Alartbos. an al cual sa puada 
indicar al sa qulara Incorporar asta nuava variable al 
profraaa o si sa trata da un arror da aacritura ( an 
eats caso sa viauallsa al nansaja da error ’Syntax 
Error*) . 

En al rianco daracho da la zona da aanu sa encuancra an la parte 
superior un raloj y dabajo da asta la Indieaclbn dal mlaaro da llnoa da 
taxto actual. El sanajo da astoa doa slenantos da la zona da Band aa 
axpllcari ads adalanta. 

Entre al siabolo ATARI y al taloj sa vlsualizan valnta palabraa da 
coBando, da a doa una sobrs la otra. las cualaa sa puadan activar con 
al ratdn o a travda da las taclas da funcldn. La llnaa Inforlor do las 
palabraa da coaando sa puada activar pulaando tina tacla da funcldn; loa 
coBsndoa da la llnaa s\iparlor pulaando la tacla Shift y la 
corraapondlenta tacla da fvsKidn. A la palabra da co aa ndo aa la parte 
lofarier iiquiarda partanaca por aj. la tacla PI. la palabra da 
coaando por anciaa’ da data (Save) aa llaaa con Shift*Pl. 

Dabalo dal siabolo ATARI hay lufar para otroa doa caracteras. Alii aa 
viauallza al aacatus da la tacla CAPSLOCX y MMUXX. Si sa pulaa la 
tacla CAPSLOCX sa visualize a la izquisrds dabajo dal altfwlo ATARI una 
flacba qua apunca hacia arriba. Cuando aa pulaa la tacla MMLOCK. o 
saa Control*(. aa viauallza a la daracha dabajo dal siabolo ATARI al 
siabolo da elevacldn a potanela ' El aodo NUKLOCK y CAPS'LOCK taabldn aa 
puadan salaccionar activaodo la tacla dal ratdn Izqularda dabajo dal 
aiabolo ATARI. 
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Loi iceu del aenil tlenen el elKuiente elfnlflcado: 

Loed PI 

El coeendo Loed hace poelble earger is progreea CFA*BASIC3-0. B1 
foneto eepleedo equl eapiee loe llaaedoc tokeoe da eeotenela. Un 
flchero da progrua ^ este tlpo ae puede cargar y alaacenar con gran 
velocldad . Para este foraatO ae uaa noraalaente el sufljo da flchero 
.GFA. 


Laa veralonea ala anciguas da GPA-BASIC uaan otro foreato token. Por 
eao.aua prograaaa an la veraldo antlgua ae daben alaacenar coo Save. A y 
cargar an OPA-BASIC coo Merge. Luego ae puaden alaacenar an 3*0 eon 
Save y cargar con Load. 

Save Shlft*Pl 

3a vlauallza un Plle-Salact-Box. an el eual ae puede Indlear un 
noabra. Bajo aete noabre ae puede alaacenar antoncea el prograaa, sue 
•e eneuantra an aae aoaanto an el editor. Aqul ae uaa el fomato 
cokenizado bajo Load. El auftjo dal flchero conectado prevlaeante ae 
llaaa .OPA. Se agrega autoadtlcaaente al noabre dal flchero. cl al 
uauarlo no Indlca aufljo. 

SI ya axlata un flchero con al noebra ingreaado, data sa aisacana con 
al alsBo noabre de flchero con el aufljo .BAK. 

Marga P2 

Con aaca coeendo ae puede ineertar en el prograae ectual un flchero en 
el foreeto ASCII. Le Ineercldn ae realize entea da la llnea an qua eat* 
al curaor. El aufljo del flchero conectado prevlaeante aa .1^. Loa 
prograaaa de verelonea ada antlguaa da OPA-BASIC ae alaacenen da 
acuardo con le veraldn antlgua eon Seva. A y ae vuelven a cargar an OPA- 
BASIC con Merge. 

• a > Laa llnaaa dal prograae con eata aufljo aurgan con al Marge • • > 
da un prograae, qua el Ineacvrete no antlende. 

Seva. A Shirt*Pl 

Con Sava, A aa puede alaacenar al prograaa actual an foraato ASCII. Un 
flchero alaacenado en eate foraato aa pueda volver a cargar eon Merge. 

El aufljo dal flchero conectado prevlaaante ee .LCT. So agrega 
autoBdtlcaaance. al al uauarlo no Ingreaa nlngdn aufljo. 

SI ya axlata un flcharo bajo el noabre Ingreaado. date ae elaacona bajo 
el alaao noabre eon el aufljo .BAX. 

Ulat P3 

Bata coeendo Inlcla la laprealdn del prograae qua ae eneuantra en el 
editor. El foraatao da la laprealdn ae puede influancler con laa 
llaaadaa Inatruccionea de punto. Eataa Inatrucelonaa ae Inaerten an el 
llatado del prograaa Igual qua llnaaa de aentanele noraelea. Son {x aa 
una anotacldn qua sa uaa para Indlear cudntoe ndaeroe aperecerdn): 

.11 XX - longltud adxlaa de le llnea 

.pi XX - longltud adxlaa de la pdglna 

- paaar a le aigulenta pdglna 
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* ccoditloiul pao 
' «MB«r*elte d* 1 m pdflnu 

- lArtw IxqulMdo 

* eadtoa d« caractarM fora-faad ( para lapraaorM qua 
tlaean otna valorM da fora*raad. aa puada Incraaar 
ima eadana da auaUtucldo. rrarti^n aa ccnactd 

.rnou) 

* taata da la llnaa da cabaeara 

* taau da la llnaa da pla da plfiaa 

* adrgan tiqulardo 

* Coo aata Indleactdo aa lofra qua 1 h IIjmm 
al«ulantaa no aparaaean an al llatado. B 1 llatado aa 
puada volvar a eonacaar aadtanta un . 1 * qua aparaea 
aia adalMta an al profrana. 

- var .1- 

* eaoaeta la oDuaaracldo da la llnaaa eon t a 9 
lucaraa. 

- daaeenacta la anuaaracldn da 1 m llnaM. 

to taau) da la lloM da cabaeara y al pla da pdclna Ml coao an al atrln* 
PP aa puadan inaartar otiaa anotaclonaa qua Indlean cudntoa niiMroa 
aparecarin. 

- Car«etar eon al ASCII-Coda xju 

\d - Pacha 

* bora 

f ' Atearo da p4(lna 

Para podar avldanelar loa earactaraa aapaclalaa » y \. hay qua fljar 
otro carieuF \ dalaoca. Per lo taoto, la coablnacldn da earaeuraa \\ 
avldanclan un \ an la iapraaora y la eoobinaeldn \# un #. 

Quit Shlft*P3 

Haca poalbla abandooar incatprocaa QPA-BASIC. 

Block n 

Si no aa aared oloftta bloqua y aa aalaeelona data Itaa dal Band, antoncM 
aa vlauallta an la aona da aand al taato *81oekYTT*, para Indlear qua 
la alaeeldn dal eoMndo bloqua no Clana aanUdo an aata altuacldn. Paro 
al aa aared un blo^. aa vlauallaa aand la lli»a auparlor da la 
pantalla. Loa icaoa ladlvldualM da Mta aand m puadM aetlvar eon al 
raedn o pulaando una latra da cooando. Loa lt«M dal OMd aon (bitra 
pardntaala aparaea alaapra la tacla, eon la qua aa puada " al ICm 
dal a«d)i 

Copy Copla al bloqua «i la poaleidn actual dal curaor. aata 
caao quada MiraiV) al bloqua. 

Nova DaaplMa al bloqua a la poaleidn actual dal curaor. En aata 
caao M allalna la aarca dal bloqua. 

Vrlta Alaacana al bloqua coao flcbaro ASCII. 

Lllat Xaprlna al bloqua. 

Start Salta al cealanxo dal bloqua. 


QFA BASIC 3-0 


.ff XXX 


.ha cabaeara 
.fo pld 
.Ir XX 
. 1 - 


.!• 

■nl a .n9 
.nO 
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End S*lts final dal bloqua. 

‘Del SuprlM el bleque (Conuol-D). 

Hide: Bllaltta la earea del blequa. 

Pulaando ocra tacla ( o la (eela dal recdn) fuara da etca xona sa 
elialna cl aenil dal bloquc. 

Nea ShlfC«P 4 

Suprlea al procreaa qxia ta aaeuantra m el editor. 

BlkEnd F 3 

Con BlkEnd aa puada aarear la linaa ae qua aati al cursor coao final da 
bloqua. Si la aarca dal coalanzo dal bloqua aa ancuantra sobra aata 
linaa. antoncaa al bloqua sa ansaacara eon una aaerls da puneos an la 
varsidn eonocroeAtlca. Bn la varaidn color sa rapcaaanta al bloqua 
aarcado an otro color. Bata eoeando taabido aa puada ajacutar pulasndo 
Control *K. 

filkSca Stklft*F 9 

Con BlkSta aa aarca la linaa an qua aatd al cursor coae eoaimao dal 
bloqua. Si datrAa da aata linaa aa fljd aatarioraanta un final da 
bloqua. Is tone dal bloqua aa anaaaeara eon una aatris da puntoa. Bata 
coaando taabida aa puada ajacutar piilaanrtn Caotrol*B. 

Find rt 

Daapuda da inlelaliaar al coaando Find sa puada lacraaar ua taxto a 
buacar . La bdaquada coaiaaaa an la linaa an qua asCA al cursor. La 
bdaquada sa puada volvac a Uaaar pulaando Coatrol*P o Control*L, sin 
qua aa viaualica la profunta dal taxto a buacar. 

Cuando sa ancontrd al taste buacado. al cursor aparaca al coalanso da 
la linaa qua contiana al caste buacado; cuando no aa ancontrd aparaca al 
euraor al final dal progriai. 

Cuando aa vualva a llanar al cenande Find, antoncaa aparaca an la 
linaa. w la qua aa puada Incraaar al string da buacar. al dltino string 
da buacar uaado. Al ingraaar si tssto a buacar sa dlapcna da las 
algulantas poslbllid^aa da adieido: 


Cursor isquiarda El cursor ss daaplasa un carAetsr a la ixquiarda 
( an la aadlda an quo 00 aa ancuantra blan a la 
ixquiarda) . 

- daracha B 1 cursor sa dasplaxa un carAetsr a la daracha ( 

an la aadlda an qua no sa ancuantra al final da 
la cadana da bdaquada) . 

Oalata Suprlaa al carActar da la cadana da bOaquada. 

qua astA dabajo dal euraor. al rssto da la cadana 
da biiaquada aa acopla da daracha a isquiarda. 
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Baekapac* Suprla* «1 carActsr a la Izquiarda dal curaor 

( aa la aadlda an qua no aa ancxianCra ya ao al 
airgan Izqulardo) y anvualva al ratio da la 
cadana da biiaquada. 

Eacapa Suprlaa al caapo da ancrada 


Retuin/Enier 


Conflraa al caxco da bdaquada ingraaado y 
coaianza a buacar. 


El coaaodo Find caablAn aa puada llaaar eon la eoablnaclOn da taelaa 
Shlft*Control*P o Shin^Control *L. En procadlalaocot *dobladoa* ao 
aa aocuantra taxto (var cacla ttalp ao al pArrafo eaclado dal curaor). 

Raplaca Shlfc*F 6 


Bata coaando alrva para auatlculr un taxto por otro. Oaapuda da 
Uaaarlo, aa prafunta por al taxto qua aa qulara auatlculr. Luago aa 
praguota. cual aa al taxto qua lo auatltulrd. Bntoncaa coalanxa ao al 
prograaa la bdaquada dal taxto qua aa qulara auatlculr daada la poalcldo 
dal curaor. Cuando aa aocuantra al taxto buaeado, al curaor aalta al 
eoalaoao da la lloaa cor r a a pondlaota. 

Bntooeaa aa puada raallzar la auatleucldn pulaando la eoablnaeldo da 
taelaa Coottol*B. Si aa algua pulaando la eoabloacldn da taelaa aa 
buaca la algulanta parca dal taxto a auacltulr 0. al aa aocuantra an 
la poalcldn actual dal curaor, la auacltuya. 

B 1 c o aa n d o Raplaca taabl 4 n ao puada llaaar eon la coablnacldo da taelaa 
Shlft*Coocrol*B. Laa poaibllldadaa da odlcldo, do laa qua aa al 

Ingroaar al caxco da biiaquada 0 do tuatlCueldn, aa ban aaflalado ao la 
daaerlpcldo dal coaando Plod. So procadlaiaocoa *dobl^>a' m aa 
aocuantra nlngOn taxto ( var tacla Halp an al pArrafo taclado dal 
curaor) . 

Pg Down P7 


*Da vualca la paglna* dal taxto dal prograaa 'anrollando* al taxto da 
la paotalla baela abajo. TaablOn aa puada llaaar coo Concrol*C. 

Pg Up Shirc*F 7 

*Da vualta la pAglna* dal taxto dal prograaa. 'onrollando* al taxto da 
la paotalla haela arrlba. Taabiao aa puada llaaar con Cootrol*R. 


Inaart/Ovorwr P8 

Paaa dal aodo INSStT (Inaarcldo da taxto) a aodo OVERMIITB (coda ouavo 
carictar aa tacla«to aobra al eardetar qua aatd an la poalcldo dal curaor. 
loa caraccarea aobra loa qua aa taelaa aoo auprlaldoa) y vlcavaraa. 

'nicl6/Taxtfl Shirt«P8 

Bata coaando tola oatA a dlapoalcldo an la dafinlcloo aoDOcraaocica. Bn 
al aodo 16 aa rapraaaotao latraa coo un alto da I6 pixal. o aaa qua an 
la pMtalla aa vlauallzan alaatlUna^nta 23 llnaaa. Bn al aodo B al 
alto da laa latraa aa da aolo 8 plxal, pare an la pantalla aa 
vlauallzan alwlUnaaawita A 0 llnaaa. Coo Txcl6/Taxt8 aa puada coeutar 
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«ncr« sstoa do* aodos. 

Flip P9 

Con ««te coMAdo •• puada conautar • la pantalla da aallda. donda aa 
vlauallxa la altuaclte qua dajd al Oltlao precraaa llaaado. Pulaando una 
Mcla ( taablAn la cacla dal racdn) aa puada volvar a la pancalla dal 
adltor. 

Diracc Shlft'F^ 

Con aata eoaande aeeada al mode dlraeto. Da aata aanara puada Incraaar 
coaandoa da CFA-BASIC para qua aa ajacutan Inaadlataaanca daapuda da 
pulaar la taela Ratum o btar. Al(unoa coaandoa, por aj. coaandoa da 
aatructuraa da rapatlcldn (loopa). no aa puadan llaaar an al aodo 
dlraeto. A aata aodo taablAn aa puada accadar pulaando la cacla Eacapa. 

Bn al aodo dlraeto adaaA a aa poalbla volvar a llaaar laa Oltlsaa echo 
aantanclaa ( qua aa Incraaaron on al aodo dlraeto) aublando y bajando 
al curaor con laa taelaa. 

Pulaando la taela Undo aa vlauallxa la dltlaa aantancla. Con laa 
coablnaelonaa da taelaa Concrol*Curaor Ixqularda o blan Control*Curaor 
daracha aa puadan alcanxar al conlanxo y final da la llnaa. AdanAa, 
pulaando la taela Inaart aa puada connutar antra al aodo da Inaareldn y 
noraal (por dafacco) ■ 

El aodo dlraeto aa puada volvar a aba n do n ar pulaando la taela Eaeapa 
aaqulda da Ratum. En foraa altamaciva ta^lAn aa puada oprlalr 
alaultAnaananta Control*Shlft*Altamata. 

Para llanar Inacrueelonaa da varlaa llAaaa, aa puada aacrlblr an al 
adltor un procadlalanto. qua eontltna aataa aaocanelaa. Bo al aodo 
dlraeto aa puada llaaar antoncaa a aata proeadlalanto. 

Taae Fio 

Datpuda da la ajaeucldn da aata Inatruccldn aa axaalna al todaa las 
aatructuraa da rapatlcldn (loopa). loa aubprofraaaa y laa Inatrueelonaa 
condlclonadas dal pragrana actual clarran. 0 aaa, aa llava a cabo una 
pruaba da aatmetura. 

Con Control, la taela Shift Ixqularda y Altaraata aa puada intarruiplr 
un ptograM an ajacucldn. 

Run Shlft*P10 

Inicla la ajacucldn dal prograaa qua aa halla an al adltor. SI axta 
pragrana contlana un arror aacructural. por aJ. un loop PQR*KEXT no 
cxrrado, xa vlauallxa al eorraapondlanta nanaaja da arror y no aa 
Inlcla la ajacucldn dal prograaa. 

Control*Shlft*Altamsts 

Con la ccnblnacldn da taelaa Contral^taela Shift lxqularda*Altamata aa 
puada Intarrunplr al prograaa en ajacucldn. 

El Indlcador da llnaa y da la bora 

Bn la parta Infarlor daracha da la zona da aand xa ancuantra al 
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tndlCAdor da la linaa an qua aa encuantra al curaor. Ed aata Indlcador 
da linaa taablta aa puada tncorporar un luiaaro da linaa, da tal aanara qua 
el curaor aalta a la linaa corraapoodlaota. Con aata fin aa puada 
actlvar la zona da Indlcacidn aadianca al racdn o aa puada inlclallaar 
con al coaando Concrol*Q. 


Gn aata caapo aolo aa puaden Infraaar nuaaroi. Laa poalbllldadaa da 
edlcldn para el Increao da loa mlaeroa da linaa deaaadoa aon: 


Curaor laquierda El curaor aa daaplaaa un carictar a la izqularda 
(an la aadida an qua no aa encuantra blan a la 
izqularda) . 


- daraeba Cl curaor aa deaplaza un carActar a la daracha 

( an la aadida aa qua no aa encuantra blan a la 
daracha) . 


Backapaca 

Baeapa 

Ratum/Entar 


Tlana la aiaaa funcldn qua Curaor laqularda. 
Suprtsa al caapo da eocrada. 

Conflraa al niiaera incraaado. 


Sobra al Indlcador dal niiaaro da linaa aa encuantra un raloj, qua Indlca 
la bora dal alataaa. Deapuda da actlvar al raloj con la riacha dal 
ratdn. axlaca la poalbilldad da volvar a tjuatar al raloj. Laa 
poalbllldadaa da adlcldn para al ln(zaso da la bora aon laa aiaaaa qua 
para el caapo Indlcador dal niiaaro da linaa. Solo la tacla Cacapa tlana 
aqul ocro alfnlflcado. ya qua interruapa al infraao aanteniando para 

la bora al valor vlajo. 


Caaoa aapaelalea 


DEFBITfS 

OEFBYTn 

DEFINTfJ 

DEFWROfS 

DEFFirn 

DEFSTRrS 


rS: conatanta atrlnc o alfanuadrlca 


La Inatruccidn DCPxxx alrva para daelaracldo alaplirieada da varlablai. 


aata caao out aa una anotaeldn qua Indlca al nuaaro da abraviaturaa 
da tlpoa da variablaa, qua a# anuaaran y axpiican an la alfulanta 
table: 

DEPxxx 

fS 

Sufljo 

Todaa laa variablaa... 

DEFBIT 

•B" 

1 

con la latra Iniclal 'b' aa daclaran 
variablaa boolaanaa. 

DEFBYT 

■by* 

I 

con laa latraa Inlclalea 'by' aa 
daclaran cone antara da un byta. 

OGFVRI) 

•w* 

1 

con la latra Inlcial aa daclaran 

coao antara da doa byta eon al(no. 
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DEFINIT 

■l-k.a-p* 

% 

con laa latraa inlclalaa 1 * a 'k’y 
'a' a 'p' aa daclaran coao entaraa 
da 4 byte con algno. 

DEFFLT 


0 

Con laa latraa Inlclalaa 'x' a 'I'aa 
daclaran coao valoraa da pun to 
flotaoca da 8 byca. 

DEfSTB 

*a.t* 

t 

eon laa latraa inlclalaa 'a' y 'C 
aa daclaran coao eadenaa da 
caraccaraa 0 acrlnc. 


El Aditor r««Bplu 4 4 ucoaAelcaaent« la ln*truccl 6 n d« DEFSNO 0 DBFDBL 
por DEFFLT. 

Norsalaenca em ^tll raallxar talea daclaraclonea globalaa al eoaienao 
dal profraaa. St uno an alfuna parta dal prosraaa aa aparta da la 
daflnlcldn fljada con OEPxxx, aolo aa data Indlcar al auflje daaaado 
datria da la variable an euaacidn. Baca Indlcacldn axpllelta dal tlpo da 
variable aiaspra tlana prlorldad aobra laa daflnlclonaa (lobalaa.La 
daclaracldn da varlablaa tlana valldas haaca qua aa Hava a cabo ocra 
daclaracldn. El tlpo da variable praaalacclenado aa un valor da pun Co 
flocante da 8 byca. 

El coaando DBPLIST ragula la vlauallzacldn dal tlpo da varlablaa y laa 
aayCiaculaa y alnuaculaa an al llacado. 

DBPLIST n 

n: laxp 

DEFLIST rija al foraato dal llacado dal profraaa. La aapraalOn nuadrlca 
n puada canar un valor antra 0 y 3 (Inclualva). En la alfulanta tabla 
aa rapraaanta al afacto dal aantaocla DEFLIST aobra la focma da 
aacrlblr al noabra da la aantancla y da laa varlablaa: 


n Sancancla Variable 

0 PfUKT abc 

1 Print Abc 

2 PRIKT abcl 

3 Print Abc# 

El aodo praaalacclonado aa DEFUST 0. 
DEFLIST 0 


Laa aancanclaa y funelonaa da QPA-BASIC aa rapraaentan an lacraa 
aayuacula. Loa noabraa da varlablaa, procadlalancoa y funclonaa aa 
aacrlban an aindacula- 


DEFLIST 1 


TanCo laa aancanclaa da OPA-BASIC y funclonaa cooo taabldn loa noaibrea 
da varlablaa. procadlalancoa y funclonaa aa rapraaantan con la latra 
Iniclal an aayuacula, al raaco dal noabra aa aacrlba an alnilacula. 

DEFUsrr 2 


pdetna 27 



GFA BASIC 3.0 


INTRODUCCIOK 


Igual qua DEPLIST 0. pero al ooabre da todaa laa variables se acregs 
adlclonalaenta un siabolo caractarlstlco (sufljo) ■ 

DEFLIST 3 

Igual qua OEPLIST 1. pero an al noabre da todas las variables se 
agrega adlclonalaente un siabolo caracterlstlco (sufljo). 

S caxt 

text; Secuancla da caracteres cualesqulera 

La sencencla $. qua al IntArprata trace Igual que un coaantarlo REM. 
slrva para el aanajo dal coapllador. Una dascrlpcldn exacts se 
encuencra an las Instcucelones da la veraldn dal coapllador para el 
QFA-BASIC 3-0. 
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SI •Alter 
Puoda>eBto> 

£1 editor dal CFA-SASXC 3>0 no •• un editor da taxto convanclooal. 
tlno qua fua eraado aapaelalaanca para al daearrollo da profraaaa. Por 
ajcaplo, duranta la craacldn dal profraaa ya to raeonocan aantanelaa 
•Intietlcaaanta arTteaaa. AdasAa. M ublcan autoadtlcaaanca loa coaandoa 
dentro da aatructuraa da rapaclcldn (loopa) e con Inatrueelonaa 
condlelonadas y laa abravlaturaa da coaandoa aa tranaflaian al neabro 
coaplato dal coaando ( por aj. p an PRIHT]. 

Al aacrlblr un llatado da profraaa alo^ra ae raallaa un control da 
tlntaxla, cuando aa daba abandonar una linaa. SI la aantancla an aata 
llnaa no aa corracta daada al punto da vlata alntietlco , antoncaa 
aparaea an la aefunda llnaa al aenaBja 'Syntax Error*. Fljando al 
alabolo da coaantarlo (' ) al coalanao da la llnaa. data aa tranarecaa an 
coaantarlo. Daapuda aa puada abandonar la llnaa. 

En cada llnaa dal prosraaa adlo aa puada Infraaar una aantancla. DatrAa 
da aata aantancla puada aparocer adaaAa un coaantarlo. Eata aantancla 
no puada tenar ads da 2^5 cdrdctaraa. Cuando una llnaa tupara loa SO 
caractaraa, au coalanzo dasapareca en al flaneo Itqulardo da la 
pantalla. Por lo tanco. adlo aa baca al 'acrolllnc' da aata dnlca llnaa. 

Al abandonar una llnaa da aantancla, aa raallia un control da alntaxla 
( ver ads arrlba) y aa da foraato a la llnaa. 0 saa, por #J. hay qua 
alialnar sapaclos an bianco suparfluoa (por aj. da 2 • 2 raaulta 
antoncaa 2«2) y aacrlblr laa palabraa da laa aantanelaa y loa noabras 
da laa varlablas aafOn al DEFUST conactado. SI aa prasalacciond al 
DEFUST 0. por aj.. todaa las palabraa da las aantanelaa aa ascrlban 
an aaydscula y todoa loa noabroa da laa varlablea an Blnilseula. 


Sl bloqua do taelaa dal euraor 


El cursor aa puada dlrlrlr a travda dal bloqua da 
Instalaelta da laa taclas as: 


Flachs hacla la Ixquisrda 
Placha hacla la daracha 
Flaeha hacla arrlba 
Placha hacla abajo 


al cursor aa dssplaza 
liqulerda 

al cursor aa datplasa 
daracha 

al cursor aa dasplaxa 
arrlba 

al cursor so dasplaza 
abajo 


taelaa dal cursor. La 

un cardetar a la 
tD cardetar a la 
una llnaa hacla 
una llnaa hacla 


Loa aovlalantos dal cursor estdn toascidoa a alfunaa llaltaclonaa. Coao 
adxlao aa puada ublear un cardetar dacrds dal dltlao cardetar da «sta llnaa y 
una llnaa por dabajo da la lUciaa llnaa dal profraaa. 

Cuando sl cursor pass a una llnaa. qua aa ads cortd qua la poalclbn 
actual da eoluana dal cursor, al cursor salts al final da eata llnaa, 
an lo deads aantlana au poaleldn actual da coltana ( a dlfaraocls da loa 
adltorsa da varalonaa ads antlfuaa da QPA-BASIC). 


Taabldn aa poalbla ublear el cursor con al ratOn. Para alio aa aaflala 
con la flaeha dal ratdn la poaleldn daseada y aa oprlaa la tacla 
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izqulflrda dal ratda. 


A 1 pulsar la tacla da InsarC aa Introduca una linea an blaneo antra la 
llnea sobra al cursor y la linea dal cursor, si no sa ha realliado nln(un 
eaablo an la llnaa actual. El cursor sa ublca al coalenxo da asta llnaa 
on bianco. Con Clr*Haae sa llava al cursor al aArian superior Izqulardo 
por dabajo da la zona dal aanil . con Coocrol*Clr/Kaaa sa llava al 
cursor al eoaleozo dal llstado dal profraaa. 

Con ayuda da la tacla Undo sa puadan ravartlr caablos an una llnaa dal 
profrasa, an la aedlda qua no sa ba abandnnado todavla la linea. La 
tacla Help poslblllta ’daadoblar y doblar* procadlalentos an el 
llstado dal profraaa. 

Qulara daclr: euando sa ublca al cursor an una llnaa, an la cual 

aparaca al conando PROCEDURE y luafo sa pulaa la tacla Help, antoncaa 
dasaparacan todas las llnaas da sontancla an al llstado hasta al 
slfulaota REIVRM (Incluslva). En luxar da aso sa coloca una flacha y 
un espaclo an bianco ’> ' dalanta dal coaando PROCEDURE. 

En oata altuacldn taapoco sa puadan raallzar caablos an loa noabraa dal 
procadlalanto e la llsta da parAaatroi dal aubprotraaa. Para podar 
volvar a vor laa llnaas da aantancla antra PROCEDURE y RETURN, aa 
dasplaza al cursor a la llnaa , qua coalanza con la flacha y aa pulaa 
nuavaaanu la tacla Help o aa auprlaa al carActar ’>'. 

Eats ” Doblar* (Poldlnf) da un aubprocraaa haca poalbla eraar llttados 
braves y claroa, en loa cualas solo sa 'daadobla* al aubprocraaa, con 
al cual sa crabaja an esa aoaanto. Un profraas con procadlalantoa 
dobladoa puada aar aal. por aj.: 

Inlt 

aaln_aanu 

> PROCEDURE INIT 

> PROCEDURE aanu_prlnclpal 

> PROCEDURE sons da aanu 

> PROCBXJRS carcar 

> PROCEDURE alaacMtar 

> PROCEDURE alaborar 

> PROCEDURE buscar Inforsacldn 

> PROCEDUIB aoatrar Inforaacldn 

Con un procadlalanto daadoblado al prograaa as antoncaa al slfulante: 

Inle 

» 

> PROCEDURE Inlt 

> PROCEDURE aenu^rincipal 

> PROCEDURE zona da sand 
PROCEDURE cargar 

FILESELECT "•.RSC*,".rsc flchero* 

IF NOT Emr(roc_ricbarotT 

ALBIT l.*Ho axlsta flctiaro t*,l,*Intarrupclta*,rt 
ELSE 

IP RSRC-LOAD(rac_flcharo $)-0 

ALERT 1 , ’Error an la carga dal flcharo l*,l, 'Interrupcldn" ,rl 
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END 

E»DIF 

BNSIP 

BETtJBN 

> PROCEDURE AlMcen&r 

> PROCEDURE «lsbor«r 

> PROCEDURE buacv InroruclOn 

> PROCEDURE Boatrar Informaclte 

El ceclado DuaArleo 

El taclado nu>Arlco cirv* nnnilannTn para Incrvaar nuaaroa y algunoa 
ocros caractaraa. Pare caaiblAn aa puede uaar en coablnaeldn con la tecla 
da control. Su InacalaclOn eorraaponde antoncaa a la Inatalaclta an 
tacladoa eon NUMLOCK eonaetado ( por aj. an PC'a). La InatalaclOn aa: 


Control y 4 
Control y 6 
Control y 8 
Control y 2 
Control y 7 
Control y 1 
Control y 9 
Control y 3 
Control y 0 
Control y . 


Daaplaaa curaor un carActar a la liqularda 

Daiplaza curaor un carAetar a la daracha 

daaplaaa curaor una llnaa hacla arrlba 

daaplaaa curaor una lloaa hacla abajo 

Salto al coalanxo dal profraaa 

Salto al Pinal dal profraaa 

Paao a la pAflna antarlor 

Paao a la pAflna algulanta 

Corraaponda a Inaart 

Corraaponda a Dalata. 


El caclado ntiaArlco taablAn puada trabalar an un aodo, an al cual Aataa 
taclaa aon aPactlvaa aln Control. La eonautaclOn aa haca a travAa da 
otraa (coablnaclonaal da laa taclaa da control del taclado nuaArlco. 


Control y - , aal coao Control y ( corraapondan a KUMLOCX. Entoncaa al 
pulaar una tecla dal taclado nuaArlco reaulta al coaando indlcado 
antarloraanta eon Control. El aodo MUNLOCX at puada volvar a anular al 

aa vualva a pulaar la alaaa tacla. 


Otraa taclaa aditoraa an al taclado principal 

Con la tacla dELETE aa puada tuprialr al carActer qua aatA an la poaleldn 
del curaor: al raato de la llnaa aa acopla aln dajar aapacloa an 

bianco. La tacla Backapaca auprlaa al carAotar. qua aa ancuantra a la 
Izqulacda dal curaor y acopla al raato da la llnaa aln dajar aapacloa 
an bianco. 


Al pulaar la tacla tab ( tabulador) al curaor aalta a la elfulenta 
poalclOn da tabulaclOn a la daracha. Eataa poalclooae aa ancxiantran an 
Intarvaloa da ocho caractaraa. Control • tab Hava al curaor a la 
alfulnata poslclOn da tabulaclOn a la Izqulac^. 

Lae taclaa Return y Enter hacen aaltar #1 curaor al coalanxo da la 
■igulanta llnaa. Pulaando la tacla Baeapa, aa paea al aodo dlracco. 

Coaaadoa da eoatrol 


En loa pArraPoa antariorea ye le hen eenclonedo euchoa coaandoe de 
Control. Aqul ee hen de reaualr una vaz aAe aatoa coaendne y loa 
coaandoe da laa taclaa de Control no aanclonedaa alll (excepto loa 
coaandoa de Control, qua trebajan Junto con al taclado nuaArlco): 
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Control * Deleco tuprloe la llnaa en la qua estA al cursor 
Control * U (utwialata) 

Insarta la llnaa qua aa suprisld coao lUtlaa con Control • telat o 
Control * y. Eato airva, por un late, para rastaurar llnaas. qua aa Iian 
auprlaldo aln querer. Por otro late, aai aa puedan desplazar o coplar 
fAcllaanta llnaaa Indlvidualea ( por aj. para coplar: aoatanar la tacla 
da Control y pulaar Dalata y doa vacaa U). 


Control^y 

Control 


Control *0 

Control*B 
Contrel*K 
Control*R 
Cootrol*C 
Control*8 
Shift >Control*B 

Conuol*F 

Shift*Cantrol*P 

Control*euraor laqularda 
Control*curaor daracha 
Control*curaor arrlba 
Control*eursor ahajo 
Control tClr^HOM 
Control'Z 
Control'Tab 

Control«Q (foto) 


Suprlaa la llnaa qua aatA an la poalcldn 
dal cursor 

Insarta una llnaa an bianco por anclaa da 
la llnaa da drdan qua aatt an la poalcidn 
dal cursor ( coao Inaart), taablAn cuante 
aa han llavate a cabo ao^fleaelonea an la 
llnaa. 

LlaM al aanu da bloqua ( Ifual qua la 
tacla da funeldn F4). 

Marca al coalaiuo dal bloqua (bloqua), 
Marca al Pin dal bloqua. 

Paaa a la pAflna antarlor. 

Paaa a la pA(lna aifulanta. 

Suatituya taato 

Sustltuya profuntaate con al string da 
busear y suatltulr 
(find), busca taato. 

Buses taato praguntante con al string da 
busear. 

Salta al coaianso da la llnaa. 

Salta al final da la llnaa. 

Paaa a la pSglna antarlor. 

Pass a la pAglna slgulanta. 

Salta al prlnclplo dal prograaa 
Salta al final dal llatate dal prograaa. 
Salta a la poalcidn da tabulacldn a la 
ItqularOa. 

Abra al indlcador da nuaaro da llnaa para 
Ingraaar un nOasro da llnaa ( aa pass an- 
toncas a la corraapondlanta llnaa) . 


Un grupo eipsclal da Coaandoa da control haca poalbla fljar y aeeodar 
a aarcaa an al adltor. Ettas aarcaa valan solo para al editor, o saa 
no tianan nada qua var con las aarcaa qua utlllaa GOTO o RBSTOftB. 
Bataa aarcaa dal editor aa puedan ubicar an la poalcidn dal cursor 
pulaante Control y tsi Ndaaro dal teclate prlnclp^. A contlnuacldn aa 
puads aaltar a la aarca daaaada oprialaote Altamata y asta nuaaro. 


Laa coablnaclcnaa da taclaa da Altacnata con loa nCkaaroa 7~9 y 0 aatta 
praconflguradaa. Al pulsar Altamata y 7 •• salts a la ultlaa poalcidn 
del cursor ancaa da pasar al note dlrecto o antes dal dltlao coalenxo 
da prograaa. Altamata y 8 aalts a la poalcidn. an la qua aa 

ancontraba al cursor al coalanxo dal adltor. Con Altamata y 0 aa 
aalta a la Utlaa poalcidn dal cursor, on qua aa raallxd una 
nodlflcacldn. . Altamata y 9 aalta a la poalcidn. an la qua aa Inlcld la 
(Utlaa operacldn da buaquada. 
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k« SOBS de Mod j loB tocloa de fuacldo 

En lu do« linoaa luporlorM de 1« pentolla del editor ee encuantreo 
doa llneu del aenii. Blen • le ixqulerda eporece el eiobolo ATARI, que 
cuando se ecclva deedobla un aenu Pull-Do«n. Eate contlOM loe Cltuloe 
dal Bend del alobolo ATARI y el GFA>BASIC. 

Cuando aa active el Itaa dal eenO GPA*BAS1C3.00 ae vlauallian loe 
nuMroa da veraldn con laa doa poelbllldadea da elecclte: editor y aaad. 
SI aa actlva el botdn del editor, ae vuelve al editor QPA-BASIC. A1 
eleflr el eand aa vualve al aand PuU-Dom. 

El tleulo del eand GFA-BASIC cootlana loa alfulmtea icena de eend: 

Save Salta al editor, luefo ae viauallza un Flle*Select-Box. 

y aa pueoe infreaar un noabre de flchero, bajo el cual 
aa ha da (uardar el protraea actual. 

Load Salta al editor, deapuda de lo cual ae puede inctBaar 

el noabre da un fleharo en el Plle'Select-Boa qua ae 
vlauallaa. 

Defllat Poalblllta la eonaaldn del aodo Dafllat a travda da un 

Alert-Boa (coaparar apartado Caaoa eapeclalea). 

Noabrea nuavoa Con ayuda da eate Itea del aand ae puada conectar un 
eodo. an al cual ae debe conflrear el infreao da nuavaa 
varlablaa an el profraea actual. Esta aodo aetA dee- 
conectado en la preaaleccldn. Cuando ae eaplaa una 
variable qua no ae ha Infreaedo edn o taablbn un 
noabre da in proeedlalenco o da una funcldn y eate aodo 
aetA active, apareca un Alertbox, en el cual ae puada 
Indlcar al ae qulere Ineorporar eata nueva variable al 
profraea o al aa trata de un error de eacritura ( en 
eata caao ae vlauallaa el eenaeje da error *Synta> 

Error*). 

En el flanco darecho de la zona de aanii ae aneuaotra en la parte 
auperlor un reloj y dabelo da eata la Indleaeldn dal ouaero de llnae de 
texto actual. El aanejo da aatoa doe elOMntoa da la lona da aand aa 
expllcarA nAa adalanta. 

Entra el alabolo ATARI y el reloj ae vlauallzan valnte palabrae de 
coaando. da a doa una eobre la otra, laa cualea ae puaden aetlvar con 
el ratdn o a travAa da laa teclaa da funcldn. La llnaa Inferior de lea 
palabrae de coaando ae puede ectlvar pulaando una tecla da funcldn: loa 
coaandoa de la llnea auperlor pulaando la tecla Shift y la 
correapondlente tecla de funcldn. A la palabra de coaando en la parte 
inferior izqulerda pertenece por ej. la tacle PI, la palabra de 
eoaendo por anclaa de Aeta (Seve) ee Ileae con Shlft*Pl. 

Debajo dal alabolo ATARI bay lusar para otroa doa caraettres. Alii aa 
viauallza el eetatua de la tecla CAPSLOCK y NUHLOCK. SI ee pulaa la 
tecla CAPSLOCK ee viauallza a la izqulerda debajo del alabolo ATARI una 
flacha qua apunca hacla arrlbe. Cuando ae pulaa la tecla MUKLOCK. o 
tea Control«(, ae viauallza a la darecha debajo del alabolo ATARI al 
alabolo da elevacldn a potanela ' El aodo NUNLOCK y CAPS-LOCK taablAn aa 
puedan eelacelonar aettvando la tacla dal ratdn izqulerda d^ajo dal 
•iaboio ATARI. 
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La* lte«* d*l a*nO clenoA *1 •l(ui«nt« *l|nlflc*da: 

Lo*a n 

El co**ndo Load h*ce poalble c*rg«r un procrama CF'A*BAS1C3.0. El 
foruca Mplaodo aqul eaplea loa lla*adoa token* de *«nt«ncla. Un 
flch«ro de prograaa de eata tlpo *a pueda car(«r y alaacaner coo gran 
valocldad . Fara aata roraaco *a uaa norsalaenta *1 aufljo da flcSero 
.QFA. 


La* varalonaa aA* antlguaa da CFA*BA51C uaao ocro foraato token. For 
aao.aua prograaa* an la voraldn antlgua *a deben alaaeanar con Sava, A y 
cargar an GFA>BAS1C con Marge. Luago •* puedan alaaeanar an 3>0 con 
Sava y cargar eon Load. 

Sava Shlft'Fl 

Sa vlauall** un Flla-Saltct-Bo*. an *1 cual sa pueda lodlcar un 
itoobra. Bajo eat* noobra *a puada alaaeaoar antonca* *1 prograo*. qua 
•a ancuantra an a*a aoe an to an *1 adlcor. Aqul *a u*a al foraato 
tokanizado bajo Load. El aufljo dal flcharo conactado pravlaaenta *a 
llaaa .CFA. Sa agrega autoaAtl c aa an ta *1 noebra del flcharo. *1 al 
uauarlo no Indlea aufljo. 

SI ya axlata un flcharo con el noebra ingrasado. a*c* •* alaacana con 
al alaeo noebra da flcharo con al sufljo .BAE. 

Karga P2 

Con aata coeando a* pueda in*artar an al prograea actual un flcharo an 
al foreaco ASCII. La tnaarcldn aa raallza ante* da la line* an qua aatA 
al curaor. El aufljo dal flcharo conactado pravlaaenta aa .LST. Loa 
prograea* da varalonaa eA* antlguaa da OPA-BASIC aa aleoeanan da 
ocuardo con la varaldn antlgua con Sava, A y *a vualvao a cargar an QFA* 
BASIC con Narga. 

■ ■ > Laa llnaaa dal prograea con aata aufljo aurgon con al Marge • ■ > 
da un prograea, qua al IntArprata no aetlaoda. 

Sava. A Shlft*P2 

Con Sava. A aa puada alaaeanar al prograea actual an foraato ASCII. Un 
flcharo alaacenado an aata foreato *a puada volvar a cargar con Marge. 

El aufljo dal flcharo eoneetedo pravlaaonca a* .LST. Sa agrega 
autoedtleoeanta. *1 al uauarlo no Ingiosa ningdn aufljo. 

SI ya axlata un flcharo bajo al noebra Ingraaodo, data aa aleecene bajo 
al Blaeo noebra eon al aufljo .BAX. 

Ulat P3 

Eata coeando Inlcla la lepraaldn dal prograea qua so ancuantra an al 
editor. El forentao da la lapraaldn aa puada Influanclar con laa 
lloBodoa Inatmcctunea da punto. Eataa Inatrucclcnaa aa Inaerton an al 
llatado dal prograea Iguel qua llneaa da aantanela norealae. Son (x aa 
una onotaelOn qua *a tiaa pare Indlcor cuAntos nuaeroa oparecartn) : 

.11 XX • longlcud da Le llnaa 

.pi XX • longltud aAxlaa da la pOglna 

- paaor a la slgulonta pAglna 
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•ff XXX 


.he cebecera 
.fo plA 
.Ir XX 
. 1 - 


.!♦ 

.nl a .n9 
.nO 


- eoodltlonal page 

- «nuaeracl6n de lea pAglnaa 

- aArgen Izqulerdo 

- cadena da caracterea fora^faed ( para lapraaoraa qua 
Clenan otroa valoraa da fora*faad. te puada Ingreaar 
una cadana da auacltucldn. Pravlaaanta aa cooactd 

.fr\012) 

* texto da la llnaa da eabecara 

- texto da la llnaa da pla da pAglna 

- aargan Izqulerdo 

- Con eata indlcaclAn ae logra que laa llneaa 
algulentaa no aparazcan an al llatado. El Ilatado ta 
ptiada volvar a eonactar aadlanta un . 1 * qua aparaca 
aia adalanta an al prograaa. 

- var .1“ 

- eonecca la anuaaracldn da la llneaa con 1 a 9 

lugaras. 

* daaeonaeta la anuaaracldn de laa llneaa. 


En texto da la llnaa da cabacara y al pla da pAglna aal cone an al string 
FP sa puadan Inaartar otraa anotaclonaa qua Indlcan cuAntoa mhvroa 
aparacartn. 

\xxx * Carieter con al ASClI-Coda xxx 

\d - Pacha 

\t - hora 

a - nuaaro da pAglna 

Para podar avidanciar loa caracterea eapaclales # y \, hay qua fljar 
otro carictar \ dalants. Por lo tanto, la coablnacldn da caraetaraa \\ 
evldanclan un \ an la lapraaora y la eoablaaclOa \f un f. 

Quit Shirt*P3 

Haca poalbla aba n donar incerprataa QPA*BASIC. 

Block P<i 

SI no ae aarcO nlngun bloqua y aa salecclona asta Itan dal aen<j. antoncaa 
ae vlsuallza on la zona do aand al taxto *Block777*. para Indlcar. qua 
la elaceldn dal coaando bloqua no tlano aancldo an asta sltuacion. I^ro 
al ae aarcd un bloqua. sa vlsuallza un aand an la llnaa superior da la 
pantalla. Los icaaa Indlvldualos do oata aanil so puadan acclvar coo al 
ratOn o pulaando una lacra da coaando. Los iteas del aanO son (Batra 
parantasls aparaca slaapra la tacla. con la qua aa puada llaaar #1 Itaa 
dal aemi) : 


Copy 


Copla al bloqua an la poalcldn actual del cursor. So asta 
case quads narcado al bloqua. 


Move Desplaza al bloqua a la poalcldn actual dal cursor. En asta 
ease sa allalna la aarca dal bloqua. 


Write Alaacana al bloqua cono flcbaro ASCII. 


Lllst laprlaa al bloqua. 


Start Salta al coslanzo dal bloqua. 
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End S«lta al final d*l bloqu*. 

*D«1 Suprlae *1 bloqua (Control-0). 

Hlda: Elislna la aarca del bloqua. 

Pulaando ocra tecla ( o la tecla del racdn) fuera de eata zona se 
ellelna el eenu del bloque. 

New Shtrt«P4 

Suprlae cl procraaa qua aa ancuancra an el editor, 

BlkEnd F? 

Con BlkEnd aa puede aarcar la llnea an qua aatt al curaor coao final da 
bloqua. SI la aarca dal coalanzo del bloqua aa encuentra sobra eata 
llnea, antoocaa al bloqua aa anaascara con una aatrlc da pun tea an la 
veraldn aonocroaAtlca. Eo la varaldn color aa repreaanta al bloqua 
aarcado an otro color. Eata coaando taablta aa puada ajacutar pulaando 
Control*K. 

BlkSta Shlft«P5 

Con BlkSta aa aarca la llnaa an qua aatl al curaor coao coalanzo dal 
bloqua. Si datrda da eata llnaa aa fljO antarloraanta un final da 
bloqua, la zona dal bloqua aa anaaacara coo una aatrlz da puntoa. Bate 
coaando taablta aa puada ajacutar pulaando Coacrol*B. 

Plnd P6 

Deapuda da inlclallzar al eonando Plnd aa puada Incraaar un taxto a 
buacar , La Miaquada coaienza an la llnaa an qua aatd al curaor. La 
bilaquada aa puada volvar a llaaar pulaando Control*? o Control*!, aln 
qua aa vlauallca la prafunta dal taxco a buacar. 

Cuando aa ancontrd al taxto buacado, al curaor aparaca al coalanzo da 
la llnaa qua ccntlana al taxto buteado: cuando no aa ancontrO aparaca al 
curaor al final dal profraaa. 

Cuando aa vualva a llaaar al coaando Plnd, entoncaa aparaca an la 
llnaa, an la qua aa puada Incraaar al atrlnf da buacar, el ultlao atrlnf 
da buacar uaado. Al Incraaar al taxto a buacar aa dlspona da las 
alfulantas poslbllldadas da adlcldn: 


Cursor Isqularda 


- daracha 


Dalaca 


El cursor aa daaplaza un eardecar a la Izqularda 
{ an la aedlda an qua no aa ancuantra blan a la 
Izqularda) . 

El curaor aa daaplaza un cardetar a la daracha ( 
an la aadlda an qua no aa ancuantra al final da 
la eadana da bdaquada) . 

Suprlaa al cardetar da la eadana da busquada, 
qua eatd dabajo dal curaor. al raato de la eadana 
da busquada aa acopla da daracha a Izqularda. 
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B4ckspBCe Supriaa •! carActer a la Izqulerda dal cunor 

( en la aedlda an qua 00 sa encuentra ya an al 
aArfen laqulardo) y anvualva al rsaco da la 
cadana da bOaquada. 

Eacape Supriaa al caapo da antrada 

Ratum/EnCar Confiraa al taxto da bdaquada Ingraaado y 

eoalenza a buacar. 

El eoaando Find taablAn sa puada llaaar con la coablnaeldn da teclas 
Shlft«Control«F 0 ShlfC*Control *L. En procadlaiantos ’doblados* no 
sa aneuantra caxto (var tacla Help an el ptrrafo taelado dal cursor). 

Raplaca Shift»P6 

Esca eoaando airva para suatituir un taxto por otro. DaipuAs da 
llaaarlo, sa pracunts por al caxto qua sa qulara suatituir. LuefO sa 
pragunta, cual as al taxto qua lo sustltulrt. Entoncas coalanza en al 
profraea la Wisquada dal taxto qua sa quiara suatituir dasda la poalcidn 
dal cursor. Cuando sa aneuantra al taxto buacado. al cursor salts al 
coalanzo da la llnaa corraspondianta. 

Entoncas sa puada raalizar la suscitueldn pulsando la coabinaeidn da 
taelas Control>B. Si sa sifua pulsando la coablnacidn da taclas sa 
buses la aifuiante parts dal taxto a suatituir o, si sa aneuantra an 
la posleiOn actual dal cursor, la sustltuya. 

El eoaando Raplaca taabidn sa puada llaaar eon la coablnacidn da taclaa 
Shift*Control«B. Las pusibilldades da sdlcidn. do laa qua sa dlapona al 
Infrasar al taxto da bdsquada o da sustltucidn, sa han saAalado an la 
dascripcldn dal eoaando Find. En procadlaiantos 'dobladoa* no so 
aneuantra nlngOn taxto ( var tacla Help an al pirrafo taelado dal 
cursor) . 

Pg Down F 7 

*Da vualta la piglna* dal taxto dal prograaa ’anrollando* al taxto do 
la pantalla haela absjo. TaablSn so puada llaaar con ConCrol»C. 

Pf Up Shirt'F? 

*Da vualta la pAgina* dal taxto dal prograas. ‘anrollando* al taxto da 
la pantalla haela arrlba. TaablAn sa puada llaaar con Control*R. 


Insart/Ovarvr F8 

Pass dal aodo INSERT (insarcidn da caxto) a aodo OVBtWRlTE (cada nuavo 
carActar as taelaado sobra al carAccar qua astA an la posiciOn dal cursor, 
los earactaras sobra loa qua sa taclaa son supriaidos) y vlesvarss. 

Txtl6/Taxt8 Shlft«P6 

Esta eoaando solo astA a dlspoaicidn en la deriniclon aonocroastica. En 
el aodo l 6 sa roprasenian latras con un alto da l6 pixel, o ssa qua an 
la pantalla sa visuailxan siaultAnaaamta 23 llnaas. En al aodo 8 al 
alto da las latras as da solo 8 pixel, paro en la pantalla sa 
visuallian slsulcAneaaenta 48 llnaas. Con Txtl6/Taxt8 sa puada eonaucar 
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•ntn •■Cos dos aodoa. 

Flip P9 

Coe «st« coeMidia M puad* coneutAr • la pantalla da aallda. do n da sa 
vlauallza la attuaelde qua dajd al dlciao profraaa llaaado. Pulaaodo una 
cacla ( taebldn la Cacla dal ratde) aa puada volvar a la pancalla dal 
editor. 

Olracc SUfc*F9 

Coo aata eoeando accada al aodo dlracto. Da aata aanara puada Incraaar 
coaandoa da OFA-BASIC para qua aa ajacutan inaadlataaanta daapuda da 
pulaar la cacla Bacurn o btcar. Alfuaoa coaandoa. por ai- coaa n d o a do 
aacructuraa da rapatlcldo (loopa). no aa puaden llaaar an al aodo 
dlracto. A aata aodo taabldn aa puada aeeadar pulaaodo la taela Bacapa. 

En al aodo dlracto idMAa aa poalbla volvar a llaaar laa ulclaaa ocho 
aancaoclaa ( qua sa lofrasaron an al aodo dlracto) aublondo y bajando 
al cursor coo laa taclas. 

Fulaando la taela Undo aa viauallaa la ultlaa santaocla. Con las 
coablnaelooaa da taclas Control^Curaor Itqulorda o blan Control*Cursor 
daracha aa puadao alcantar al ccaianto y final da la linaa. AdanSa. 
pulaaodo la taela Inaart aa puada coeautar aetra al aodo da tnaarcidn y 
aoraal (por dafactoj . 

El aodo dlracto aa puada volvar a abandonar pulaando la taela Bacapa 
safulda da Racure. Bo foraa altanatlva taabiOn sa puada oprlalr 
slsultAnaaaanta CoBtrol*SUft*Altamata. 

Para IImot Inatruccloeas da varlaa llnaaa, aa puada aaerlblr an al 
editor ua procadlalaoto. qua conclana astaa aaotanclas. Bn al aodo 
dlracto aa puada llsaar aocoocas a aata procadlalaoto. 

Tost FIO 

Oaapuda da la ajacuetdo da aata Inatruceldn sa axaalna al codas laa 
astructuras da rapatlcldo (loopa). loa aubprocraaas y las loatrucclonaa 
condlcluoadaa dal profraaa actual clarrao. 0 saa. aa Hava a cabo una 
pruaba da aauuctura. 

Coe Control, la taela Shift Isqularda y Altamata aa puada Intarruaplr 
un profraaa ao ajaeucldo. 

Run aift*FlO 

Inlcla la alacuelde dal profraaa qua aa halla an al editor. SI aata 
profraaa contlana ia> arror aatnictural. por aj. un loop F0fl*NBCT no 
earrado, sa vlauallsa al corraapondlanta aansaja da arror y no aa 
inlcla la ajacuclde dal profraaa. 

Con trol « 3bl f t • Al tamaia 

Con la da taclaa Control*tacla Shift lsqulsrda*Altamata sa 

puada Intam^lr al profraaa an ajacucldn. 

B1 Indicador da linaa y da la bora 

Bo la parts Infarlor daraebs da la tone da aanii aa ancuentra al 
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iJvUcador la llnaa aa sa ancuancra al curaor. fin aata Irtdlcador 
da lioaa taablAn aa puada Incarporar ud ntearo da Unaa, da tal aanara qua 
al euraoF aalta a la llMa corraapeadlaeta. Con aata fla aa puada 
actlvar la <ona da Itwjicacldn aadlanta al ratdn o aa puada Inlelalliar 
eon al coaando Concrol*G. 

En aata caapo aolo aa puadan iacraaar Ddaaroa. Laa potibllldadaa da 
edlcldn para al ingraao da loa ni ia arca da llnaa daaaadoa aon: 

Curaor Izqularda B1 curaor aa daaplaza un carAetar a la izqularda 
(an la aadlda an qua no aa ancuantra btws a la 
laqularda) . 

• daracha El euraor aa daaplaza un carAccar a la daracha 

( an la aadlda an qua no aa ancuantra blan a la 
daracha). 

Backapaca Tlana la alaaa fiBKldn qua Curaor Izqularda. 

Eaeapa Suprlaa al caapo da antrada. 

Raeum/Bntar Confima al nOaaro Incraaado. 

Sobra al Indlcador dal ntearo da llnaa aa ancuantra un raloj. qua Indlca 
la bora dal alataaa. DaapuAa da actlvar al raloj con la flacha dal 
ratdn. axltta la poalbllldad da volvar a ajuatar al raloj. Laa 
poalbllldadaa da adlclte para al Infraao da la bora ton laa alanaa qua 
para al caapo Indlcador dal nunaro da lima. Solo la tacla Eaeapa tlana 
aqul otro alfnlflcado. ya qua Inttmapa al Incraao aantanlaodo para 

la bora al valor vlajo. 

Caaoa aapaeialM 

DEPBlTfS 

DEPBrrfS 

DEPixrrt 

DEFVROrS 

D SFPLT fB 

OSTTHrS 

fS: conatanea string o alfanuaArlea 


La instruecldn OEPkxx sliva para daclaracldn alapUflcada da vsrlsblsa. 

En aata caao wu aa una anotacldn qua Indies al ntearo da abravlaturaa 

da tlpos varlablas. qua aa anmaran j ai^llcaa aa la algulanta 

tabla: 

DEFxxx ft Sufi Jo Todaa las varlablas... 

DEFBIT 'B’ I eon la latra Inlclal 'b' aa daclaran 

varlablas boolsanu. 

DEFBYT *by* I con laa latraa lalclalas 'by' aa 

daclaran cono antara da un byta. 

DEraU) ’u* A con la latra Inlclal aa daclaran 

cone antara da dos byta coo alpto. 
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DEPINIT 'l-k.a-p- 


KFFLT 


DEFSTO *#.t“ 


i 


s 


SCO lu l»trma lAlelkla* 1’ • *k'/ 

A 'p' se daclkrma coao entana 
da 4 byta coo alcno. 

Con laa latraa Inielalaa 'x' a 't'la 
daclaran coao valora* da pun to 
flotanta da 8 byta. 

con laa latraa Inielalaa 'a' y 't' 
aa daclaran coao cadanaa da 
caractaraa o atrlnc. 


El adltor raaaplaza autosAtlcaaanta la Inatruccldn d» DEFSHG o DBFBBL 
por OEFTLT. 


Moraalaanta aa dtll raallzar talaa daelaraclonaa flobalaa al eoalanao 
dal profraaa. SI uno an alfuna parta dal profraaa aa aparta da la 
daflnlcldn fljada con OEFnu. aolo aa daba Indlcar al aufljo daaaado 
datrda da la varlabla an cuaatldn. Bata ladlcacldn a;9llciea dal tlpo da 
varlabla alaapra tlana prlorldad aobra laa daflnlclMtaa flobalaa. La 
daelaracldn da varlablaa tlana vailidaa haata qua aa llava a cabo otra 
daclaracldn. El tlpo da varlabla proaalacciooM^ aa un valor do puato 
flotanta da 8 byta. 

El conando OEFUST rafula la vlauallzaclda dal tlpo da varlablaa y laa 
aayilaculaa y alndaculaa an al llat^o. 


DBFUST a 


a: laxp 

DELIST rija al foraato dal llatado dal profrana. La axpraaldn ouadrlca 
a puada tartar un valor antra 0 y } (Inclualva) . En la alfulanta tabla 
aa r ap r aaanta al afacto dal aantancla OEPLIST aobra la foma da 
aaerlblr al noabra da la aantancla y da las variablaai 


n Santancla Varlabla 

0 PRINT abc 

1 Print Abc 

2 PRINT abc* 

3 Print Abc* 


El aodo prasalacclooado as D^UST 0. 

OBFLlSr 0 

Laa aantanelaa y fuaclonaa da OPA>BASIC aa rapraaantan an latraa 
aayOscula. Loa noabraa da varlablaa. procadlaiantoa y funclonaa aa 
aacrlban an alniiscula. 

DBPLIST 1 

Tanto las santanelas da OFA-BASIC y funclonaa coao taabldn loa noabraa 
da varlablaa. procadlalaotoa y funclonaa so rapraaantan con la latra 
Inlclal an aayilscula. al raato dal noabra aa aacrlba an alnilseula. 

DEFLISr 2 
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Ifual qu« OEFLIST 0, p«ro al ooabr* da todas laa varlablaa ae agrefa 
adlclonalaanca un atabolo earaccarlaclco (aufljo). 

DEFLCT 3 

Icual qtia DSLIST 1. pero an al noabra da todaa laa variables aa 
acraga ^lelonalaenta un alabolo earactarlacico (sufljo). 

S caxe 

text: Sactiancla da earactaraa cualasqulara 

La santancla t, qua al Intdtpraca trata Igual qua un coaantarlo REM, 
slrva para al aanajo dal co^llador. Una daacrlpelte axacta aa 
ancuanera an laa Instrucclonas da la varaldn dal coapllador para al 
UFA-BASIC 3-0. 
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2 VarlkblM 7 »daint«tr>cl6n da aaaorla 
Tlpoa da varlablaa 


El <jPA*BAS 1C 3>0 dlapona da loa alfulantaa Upoi da varlablas: 


Hoabra Sufljo Raquarlalanco da lufar da alaacanaalanco 


Boolaana I 
Byca 1 
Palabra i 
Encaro S 

Oaclaal # 
Cadana S 


1 byta (an arragloa un bit) 

1 byta 

2 byta 
*> byta 
8 byta 

(dapanda da la longltud da la eadana) 


Laa varlablaa boolaaoaa aolo puadan tanar loa vaioraa 0 (falao) o 1 
(vardadaro). Si aa laa aalgna un valor dlatlnco da caro, aata valor aa 
intarprata coao •!. Eataa varlablaa aon proviataa dal aufljo 1 y 
ocupan un aapaclo da aaaorla da 1 byta. En arragloa boolaanoa, un 
alaaanto dal arraglo raqulara da un bit. 


BJavloa: blalBUE 
et«a>y 


El tipo da varlabla Byu puada aaualr vaioraa antra 0 y 255. Vaioraa 
auparloraa para 'a' aa tratan coao axcaalvoa. El aufljo da aataa varl- 
ablas aa la llnaa vartlcal 1. Coao ya lo dlea au noabra, aata tlpo da 
varlabla oo^ un byta. 

Bjaaplo: al *128 


Word aa un tlpo da varlabla da contanldo antaro da 2 bytaa eon algno. 
El aufljo da aata tlpo aa L. 


El ranfo rapraaantabla da nuaaroa alcanaa da *32768 a 32767. 
Bjaaplo: iit«32767 


Entaro aa im> tlpo da varlabla da contanldo antaro da bytaa con 
alpio. Coao aufljo aa uaa al alabolo S. 


El range rapraaantabla da niiaaroa alcanaa daada -2147483648 a 
2147463647. 


Bjaaplo: a>2000000000 

baclaal aa w tlpo da varlabla da punto flotanta qua ocupa 8 bytea an 
la aaaorla. So aata tlpo no aa uaa aufljo o al alabolo f.El rango ro- 
praaantabla da niiaaroa alcanaa daada 2.225073858507B -308 a 
3.5953862697251 »306. 

C a don aa da caraetaraa ( atrlnga) aa earactarlzao coo al aufljo S. Su 
loogltud aiilaa aa da 32767 caraetaraa. Laa cadanaa da caraetaraa aa 
atelnlatrao eon al llanado daaerlptor. Un daacrlptor da aata tlpo 
tlaoa una longltud da aala bytaa. Loa priaaroa euatro bytaa contlanan 
la dlraccldn da la eadana da caraetaraa. loa lUtlooa doa bytaa con- 
tlanan la loogltud dal atring. DatrAa dal atrlng aa inaarta ua byta, 
para al caao an qua la loogltud dal atrlng aaa deslgual. Luago aparaca 
la dlraccldo dal daacrlptor (backtrallar) . 
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Con kyuda da lu funclonu VARPTO (o V) y ARRPTR (o *) M pusdan ob- 
tener las dlraeelonaa de todas las variables, strlnjy sa obtlene 
eon VARPTR la dlreceldn dal prtaar byta da la eadana da caractaraa, 
con ARRPTR sa obtlana la dlreceldn dal daacrlptor dal atrinf. 

Hadlanea las runclonaa VARPIR (o V) y ARRTni (o *) sa puadan obtanar 
las dlraeelonaa da todos las tlpoa da variables, ft) strlnfs sa obciana 
eon VARPTTt la dlreceldn del prlaar byta da la cadana da caractaraa. 
con ARRPTR sa obtlana la dlreceldn dal descriptor dal string. 

Cuando sa trata da arreflos sa puadan obtanar las dlraeelonaa da los 
slenentos Indlvldualos dal arreflo con VARPTR/V: ( por aj. V:xt($)). 
Con ayuda da ARRPTR/* sa obtlana la dlreceldn dal descriptor dal or- 
re^lo ( por aj. ARRPTR (kX())). Con VARPTR/V: sa puate obtanar sn- 
toncss is dlreceldn da aloeontos Indlvldualas dal caapo. alantras qua 
ARRPTR datsrelns la dlreceldn del daserlptor dal caapo. 

Coapos 

DIN.DIMT 
OPTION BASE 
ARRAYPILL 

Con todos los tlpos da variables is puadan produclr coapos. La 
Lnstalscldn da uno ds astos eaopos sa locrs eon Is Instrueeldn DIM. Ls 
funeldn ds pragunts DIM? Indies, cudntos slsasntos conciana si or* 
ratio. 

Ls sdalnlstrscldn da los arrstlos sn Is asoorls ocurra s trsvds ds 
dsscrlptoras. Un daserlptor da aato clpo as uns sstmeturs de ssls 
bytes da longltud, on cuyoa priasros cuatro bytss asti contanlda Is 
dlroecldn dal caapo. Los sl|ulentas dos bytas indlcsa cuAntsa dlaan* 
slonas tlena el caapo. B1 caapo coalenza cade vss con cuatro bytes 
pars coda dloansldn dal arrsflo. coaanaAndoaa con la lUtlaa dlaanaldn. 
Luago slguen los contanldoa ds los slsoancos del caapo. las varl- 
sblss string Sstos son los dascrlptoros da codanaa da csrectaros. 

Por aj. daapuSs da DlHaX(2,3) rsaulta la slgulsnta sltuacldn; a travSs 
da *aS{) as obtlana la ^raccldn dal descriptor dal caapo. El niiasro 
de dloanslonaa dal arrsglo Plgura an los lUtlaos dos da los sals bytes 
dal descriptor, o sas lNT(*sSO»4} ds #1 valor 2. El orraglo coalansa 
con Is csntldod da sufa^vlslanaa da la sagunda dlaanaldn, donds as 
eusnts tsabidn el slsoanto csro (suponlsndo qua vsls OPTION BASE 0) . 
Luago figure la cantldad ds subdivislonas da It prlaars dlaanaldn. ai- 
toncas 

({*alU}) da al valor 4 y 

{{*aS()}*4} ds al valor 3- 

A ssto sa scoplsn los 12 slaaantos dal srreglo, requlrlando cads vaz 4 
bytas ds sspsclo da asaorla sn Is sacuancls. 

sji(O.O) aX(l.O) aX(2.0) aX(O.l) sS(l,l) aS(2.1) ate. 

0Ubi(dl.[d2....])[.y(dl.[d2....})] 

DIMT(z(») 

x.y: noabre da Is variable {cualquler tlpo da variable) 
dl,d2:laxp 
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con 1. ln.truccl6n DIM - pueden ln,t.l.r ^ 

cadenas da caractaraa. La eacnictura da un arreglo da aata tlpo sa ha 
descripto an la introducclto da aata apartado. 

da ala«aitoa da caapo daba »ar -anop qua 65535- ^1- 

Tp^uT^r ‘if ^ .. 

manor qua 65535) • 

Con ayuda da omON BASE aa puada fljar. at ^ 
i«lol*ual a caro. En un arragio adXo puadan axiatir varlt^l^ 
tlSf^ El accaao a loa alamantoa dal arragio ocurra • 
aua i^aa. U funcldn DIM? calcula cuAntoa alamantoa tlana el 

ragio. 


EJaaplo! 


DIM x(10) 
x(4)-3 

PHIKT x(LiW(*Taat*)) 
PRIMT DlM?(xO) 

DIM yt(2.3) 

PRUrr DIH?(ytO) 


aaboa arragloa <11 y 12). 


OPTION BASED 
OPTION BASSl 


Con la inatruccldn OPTION BASE aa puada 

da axiatir un elamanto Igual a caro o no. Con OPTIWBtoEO m p»^ 
iLtJlar uo aliMoto Igual a caro da aata tlpo. con OPTION BASE 1 no. 
Loa ladlcaa dal arragio comlanzan an aata eaao coo i. 


Con la inatruccido OPTION BASE no aa «1M™ •! 

poa. aunqua an datatmlnadoa eaaoa varla al Indica da loa ala—ntoa in 
dlvidualaa pop al valor 1. 


Cuando no aa da nlnguna Inatruccidn OPTION BASE. axlat«» alamantoa dal 
arragio con al Indica 0- 


BJeaplo 

DIM xX(3) 

FOB lX-3 DOWHTO 0 
xX(lS)>lS 
PHIKT lX.sSUS) 
NEXT IX 
OPTION BASE 1 
FOR 1*«3 HOWTO 0 
PRINT IS.xX(iX) 
NEXT IX 
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--> Bscrlb* loa indicaa y •! eentanldo dal arreflo xSO aobra la pan- 
talla. El prograaa flaallza con al aansaja da errer iAdlea dal eaapo 
errdneo, ya qua xX() no poaae nlngtin alaaanto ifual a caro aafun 
OPTION BASE. 

ARRArnLLxO.y 

x: nonbra da un arras^o con clpo da varlabla nuadrlca 
y: aaxp 

La InatrueelOn ARRAYFIU. iguala todoa loa aleaantoa dal arratlo 'x' al 
valor da la axpraalOn nuadrlca 'y'. 

B^aaplo 

DIN x(10) 

PRiirr x(ii) 

ARRAVFIU. x().3»l 
PRINT xtll) 

— > Evldancla al nOaaro caro. ya qua an la InacrucclOa DIN todoa loa 
alaaancoa da caapo aa ftjan an caro. Daipuda da llanar al arra(lo aa 
viauallza al niiaaro 6 an la pantalla. 

CoBvanlOn da tlpo 

TypB(x) 

x: laxp 

Con ayuda da la funeldn TYPE aa puada controlar, al aa tranaflrlO un 
pointer a una varlabla. Sa davualva un rulaaro caraccarlaclco 0 al 
valoa -1 para al clpo da aata varlabla. Da acuardo con al tlpo da 
varlabla qua aaftala 'x', aa obtlanan loa alfulancaa valoraa: 


Daclaal --> 0 
Strlnc "> 1 
Encaro --> Z 
Boolaana --> 3 
Arraqlo da daclaalaa 4 
Arraqlo da atrlnfa — > 5 
Arraflo da antaroa --> 6 
Arraflo boolaano — > 7 
Palabri *-> 8 
Byta "> 9 
Arraflo da palabraa ~> 12 
Arraflo da Bytaa --) 13 


EJaaplo 

aS**caac* 

xS*4 

DIN y(3) 

PRIKT TYPB(*aI),TyPE(*y<)) 

laprlaa an pantalla loa niiaaroa 1 y 4. 

ASC{aS) 

CI9<x) 
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«S: sexp 

x; aexp 

ASC y CHR son funclonas in vers is - 

La funcl6n ASC da el c6digo ASCII del priaer carAceer en el string aS. 
En el case en que aS es uo string luilo. ae laprlaira un cero coeo aen* 
aaje. 

CHRS da el carActer de ASCII, que tiene el cddigo 'x'. Aqul solo se 
valors el lowbyte de 'x' ( correspoode al valor x AD255) ■ 

EJeaplo 

PMKT ASCCPrueba") 

eode|>ASC(CKRS(63)) t CH»(65) equivsla a 'A' 

PRINT eode|,CHRS(id9) 

— > laprlae loa nt^roa 64.69 y al siabolo Copyrlgnt en la pantalla. 

Las funelones SRI. BIS. CS y BS convlerten una axpreaidn nuaArlca 'x' 
en una cadena da caracterea. Bn eats oadena de caracteres figurs un 
ndaero, que ae calcula a partir da la exprealdn nueArica 'x'. 

En 'y' usced dice quA loagitud debe tenar la cadena de caracterea 
devuelta. Si 'y' •• eeyor que la cantidad de caracterea necesarloa 
para la representacidn dal nuaero. entoncas se coaplata sdelante el 
string en SIRS con eapacios an bianco. En las funcionea BINS. OCTS y 
HEXS el string de resultados se coaplata eventualaenta con ceros. 

STRS(x) 

STRS(x.y) 

Sn)S(x.y.s) 

x.y.z: sexp 

STBS convierte un nueero 'x' en string. Un segundo psrAsetro 'y' in* 
dice, en cuAntos lugares a la isquierda ae debe coapletsr al string 
de resultados con espacios en bianco, o sea cuAntoa caracterea del 
string se hen da eeplear (contedo a partir del final de la cadena de 
caracterea) . 

STTtS(x.n) corresponda a RIOfTS(SPACES(n)*STRS{x) ,n) . 

Otra varianta da STRS dispone de un tercer parAaetro 's'. Aqui se for* 
Bates el nuaero 's' en 'y' lugaree coo 'z' deciealee ( redo n deado ) . 

EJeaplo 

a-123.4567 
PRINT SrRS(a,6.2) 

PRUfT STHS(PI,5.3> 

PRINT STRSIPl.2.2) 

**> lapriae loa nuaeroa 123.46.3,142 y 14 an la pantalla. 

BINUxC.y]) 

OCnixC.y]) 
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HEXS(x.y) 


x.z: lexp 

BINS convlepte un nOaero entero «n 16 representzciio binari®. 

Quier* d«lr, qua el niieero se preeente de.pufce de le ~ 

slaeeea nuairlco en base 2. 6n eata caao aa papt^^ loa 

Onicaaanta con laa clfras 0 y 1. El partaaero ’y’ Indica, cutatoa 

lucaraa ( 1 a 32 ) aa eaplaan. 

OCTS convlarta un valor antaro an la corraapondlanta rapreaantaclto 
^tai dal slateaa nuadrlco an baaa 8. En aata caao aa rapr^W loo 
nuaaroa eon laa cifraa 1 a 7. El pariaatro opclonal y Indica. 
cuAntoa lujaraa (la 11) aa eaplaan. 

HEXS conviarta un niiaaro entero an la corraapondlanta lapraaantacldn 
hexadaclaal. En aata caao aa trata da un alataaa nuoArlco an baaa 16 
con laa cifraa 0 a 9 y laa latraa A a P«> El aapndo pariaetro op* 
clonal 'y' indica, cuAntoa cifraa haxadaciaalaa aa ropraaentan ( eoao 
aAxlBO ocbo) . 

HEXS(x.n) copraaponda a RIQWrS(STRINO$(n,W)»HEXS(x),n). 


EJaaplo 

x*32‘15 

aS«OCTS(l6»7.*) , „ « 

PRIKT HEXI(x).aS.BIN$(l»4»l6*64.8) 

— > Xaprlaa 2F.0027 y OlOlOlOl en la pantalla. 


VAL{aS) 

VAL7(aS) 


aS: lexp 

VALO conviarta una cadana da caractaraa on mSaero. En al caao an qua 
VAL(j aa topo eon un carActar. quo no aa puada Intarpraiar aAa coao 
parta coaponante da un nOaoro. aa Intorruapa ol anAliaia dal Atrlni. 
VAL raporto antoncaa al n\5»aro qua flfura al co«laoao dal Btrlnf. SI 
no ancuantra ningun nuMro al coaianzo dal etrlng raportarA caro. 


Con la indlcacidn tH(ha«) o S(bln) o 6(oct) aa puadan raconocar 
nOMrot con rvpr^Mnttcido bln4rl4 u octal. 

AdeaAa. con S aa puadan caractarizar ntiaaroa haxadociMlea y con X 
nOaeroa blnarloa. 


Con AL() aa puada exaalnar. cuAntoa lugaraa do un 

tleron ce« VAL{). VAL7() reporta caro. cuando no aa Indica un niiaaro 
vAlldo. 


Eieaploa 

x-32»l5 

aS.OCTSUe*?.**) , , „ o, 

PRINT HEXI(x).aS.BINS(l****l6*64.8) 
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— > laprlM los DiiMrot 12345. *^3 y 4 •« la pantalla. 

PRIKT VALCiH*»*AP*) 

— > laprlM el niiaero 175- 

PRINT VALCIAA*) 

PRINT VAL('UOIOIOIO') 

--> laprlaa doa vacas al nOaaro 170. 

CVI(aS) CVL(ai) CVS(aS) CVP(aS) CVD<aS) 

WU(x) lOCL(x) HCS(x) IKF(x) MKDIx) 

aS: aaxp 

x: aaxp 

I .. funclonaa CVl.CVL.CVS.CVP y CVD conviertan cadanaa da caraccaraa 
an valoras nuaAricoa. ContrariaaenM a lo qua ocurra eon VAL/STRS no 
sa raallxa una eonvaraldn a tazto claro, alno qua at dacialva la 
rapreaantacldn Intama dal acrlac y da loa ndaaroa. Laa dlfaraneea 
runclonea CVx clatiaa loa alfuleataa afactoa: 

CVI convlarta un atrlnc da doa bycaa an un nuaaro antaro da 16 bit. 

CVL eonvlarta un atrlog da 4 bytes an un ndaaro antaro da 16 bit. 

CVS convlarta un atrinf da 4 bytaa. qua contlana un nuaaro an foraato 
coapatlbla an ST-BASIC, an un nuaaro da pun to flotanta da 
GFA-BASIC. 

CVF convlarta un itrlnc da 6 bytaa an OFA-BASIC 1.0 y foraato 2.0 
an un nuaaro do punto flotanta ( an foraato 3-0) • 

CVD convlarta un atrlnc da 8 bytaa an un nuaaro da punto flotanta an 
OFA-BASIC fonato 3.0. 

HKIS.KKLS.HKSS.KKFt y MKDI aon laa funclonaa Invaraas da laa funclonaa 
CVx: au al(nlflcado raaulta por lo tanco da la table racldn praaan- 
tada. 


Correaponda an aatoa eaaoa: 

l0a$(xJ).CKBS{SHR(xX.8)>*a«(xX) 

Na4(xJO«aga(SMt<KS.24))*CtBtS(SUR(xX.l8))*CHRS(SKR(xS.8))*CHRS(Kj) 

Qulara daclr, qua al byta da aayor valor flpira prlaaro. 

Un ajaaplo da apllcaeldn aa la lactura da foraatoa da nilaaroa do otroa 
profraaaa. aal eoao al alaacanaalaoto da niiaaroa para ehorrar aapaclo. 
por aj. eon *R*-Fllaa. 

EJaaplo 

aS'MXUltOOO) 

PRINT CVL(U).LEH(aS) 
bS'HXDSdOO.l) 

PRINT CVD{bS).LEN(bt) 

"> laprlM los tMiaoroa 1000 y 4 aal coao los nCiaoroa 100.1 y 8 an la 
pantalla. 

CINT(x) 


p6(lna 48 



QFA BASIC 3.0 


VARIABLES Y HEMORIA 


CFLOAT(y) 

k: aexp 

y: i*«p 

Ltt funclAn CINT convlert* un nuMro da punto flotsnc* 'x' an un valor 
entaro redondaado. En TorM andlofa coovlart* CPLOAT un valor antaro 
'y' an un niiaero da punto flocanta. Bataa runclonea no aa nacaaltan 
noraalaanta y aa praaantan aqul aolo a flnoa da coaplatar al trabajo. 
Sin aobarfo, an al coapllador tlaoa un algnlflculo. 

Ejeaplo 

a.l.23<i5 

aX-lOOOO 

Pj^CliTTia) 

b*CPL0AT(a9) 

PRINT bX.b 

-•) laprlaa an la pontolla 1 y 10000. 

OparaelonoB da polntar 


aYTE( ) .CAIID{) ,INT{ } .LONOO . 0 .FLOATO 

SINGLEU . DOUBLBO .CHARO 

xPQK.aPOKB 

Vt.VARPTR 

ARRP1R 

ABSOLim 

•x 


x: avar 0 un noabra da arraglo aaflutdo da (> 

El algno da Bultlplicacidn toabltn puada aatvlr da alabolo da polntar 
(aiabolo aaAalador). Con *x aa obtlaoa an aata eoao la dlraeeldn, an 
la cual aa oncuantra la vartabla 'x' on la aoaorla. tn al cooo da 
codonaa da caroctaraa oa ebtlana eon *x la dlraeeldn dal daaertptor 
dal atrlnf (ARRPTR(xS) ) . La axpraaldn *x clacta al alaao algnlflcodo 
qua ARRFTR(x). Bato toobldn vala para arrafloa. 

Un alinlflcodo aapaclal tlana aata varlabla da aplleacldn dal polntar 
an la tranaParancla Indlraeta da arrafloa y varlablaa a aubprocraaaa. 
Para aato aa puada uaar aalor la Inatruccldn VAR an varaldn 3.0. 

Ejoaplo 

‘ tranafarancla indlraeta da arr«(loa 

OIN a(3> 

chan«a(*a()) 

PRINT a<2) 

PROCEDURE cban(a(ptrX) 

SNAP *ptrX.x() 

ARRAYFILL x(M 
SWAP 'ptrS.xO 
RETURN 
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—> S« Altera el eontenldo del orreglo a(), eln que aparezca su noebre 
en el proeedlolento chance. Se Isprlee «n pentolla el nCiaero 1 (ver 
CoablAn SWAP) 

0 oejor ea la veralCe 3.0: 

DM a(3) 
chonceCaO) 

PRIKT a(2) 

PROCEDURE chonce(VAR ■{)} 

ARRAYFILL i(),l 
RETURN 


PEEX(x) DPEB((x) LPSDC(x) 

POKEx.y DPOKEi.j LPOKEx.y 

SPOKEx.y SDPOKEx.y SLPOKEx.y 

«,y; lOJCp 

Con la fiincldn PEEK y la tnatruccldo POKE y eui vorloncaa ae pueden 
oeleccionar lucorea de la oeaorla o oacrlblr volorea en la Moorla. 
Loa dlferentoi vorlontae de loa Inetrueclonea: 

PEB({k) Lee un byte on la dlreccldo de naaorla 'x'. 

DPEEX(x) Lee doe bycoa a portir de la dlreeeldn de eeeoria ’x‘. 
LPEEX(x) Lee euetre bytee a portir de la dlreecldn de eeaorla. 

POKE x.y Bocrlbe el valor 'y' cooo un byte an la dlreccldn 'x'. 

DPOKE x.y Eacribe 'y' coeo valor da doa bytes en la dlreeeldn 'x'. 

LPOKE x.y Escribe 'y' coeo valor de 4 bytes on la dlreccldo 'x'. 

En el eapleo de DPEBC, l^EBC DPOKE y LPESt ha de prestorse atencidn de 
Indlcor solo dlrecclonee pores. 

Vorlantes de las Instrueciones POKE trobajon con el eodo Supervisor. 
Asl taeblOn se pusds accader a dlrecclones protacldoe ( por ej . 0 a 
2047). Los Instrueciones correspondlentes se lloeon SPOKE. SDPOKB y 
SLPOKS. Especloleante on el eodo supervisor se ruecs tenar culdodo, yo 
qua las aanlpuloelcnee an dlrecclones protecldoa pueden tener craves 
coneecuenclas. Lae funclones PES( trabojan slsepre en el eodo super- 
visor. 

EJeeploa 

LPOKE XBI0Sa4.1)>6.0 

— > Suprlaa el bufrer del teclodo ( file el Indlcodor Ke^ y Toll ol 
coelanso del buffer. 

0 alteraatlvoMOte: 

REPEAT 

WfTIL INXEYI."’ 

— > Supriae el buffer del teclodo por aeleceldn do slcnos. 

BYTB(x) 

CARO(x) 
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!«■{*} 

LONOIx) 

<>) 

FL0AT{x) 

SlNGLE{x) 

DOUBLE(x) 

CKAfMx} 

x: lexp 

Con «teoi coaandoi •• puoden l«*r dotaralnadoa tlpo* do vxrlabloi a 
pareir da una dlraccldn o aa puedao aalfnar a una dlraccldn. 

Coao ftincido ( per aj. yaByTE(x)) aa laa da la Baaorla a partlr da la 
dlraccldn 'x'. Coao coaando ( por aJ. BYTB(x>«y) aa aacrlba al valor 
'y' an la aaaorla a partlr da la dlraccldn 'x'. 

Cuando aa aaplaa IWTO. CARDO. LONO{), {>. FLOATO. S1NQLE{) y 
DOUBLE! ) ^ da praataraa acaoclte da In^car aolo dlracclonaa paraa, 

ya qua alno aa daaencadana un acror da dlraccldn ( traa boabaa). 

Tlpe Slfnlflcado 

BYTC(x} Laa/eacrlba un byta. 

CARD(x} Laa/aaerlba antaroa da doa bytaa aln alpto. 

IKT{x} Laa/eacrlba antaroa da doa bytaa con algno. 

LONQ(x) Laa/aacrlba valor antaro da 4 bytaa. 

PLOAT(x) Laa/aacrlba varlablaa da punto flotanta da B bytaa an 

QFA-BASIC Foraato 3 0. 

SINOLE(x) Laa/aacrlba varlabla da punto flotanta da 8 bytaa an 

foroato IQB'SlAfla. 

OOUBLB(x) Laa/aaerlba una variable da punto flotanta da 8 bytea 

an foraato lEa-Doubla. 

CHAfl(x) Laa/aacrlba un atrlnc qua tarnlna con un byta earo. 

Tlano aucha laportancla an la coaunleaeldn eon rutlnaa 
C, GEM y OEMDOS. 

Con xI*L0Na{adrS} aa la aalfna a la varlabla xX la palabra large qua 
figure an la dlraccldn adrX, y eon L0Ha(adrX}*xX aa aacrlba al valor 
da la varlabla xX coao palabra large an la dlraccldn adrX- 

Con laa inatrucclonaa SINGLE y DOUBLE aa poalbla. laar o aaerlblr un 
foraato da nuaaroa axtraAo. Algunoa coaplladoraa C conocan al foraato 
lECE'DOUBLS. Para convartlr por aJ. un nijaaro da GFA*BAS1C an al for- 
aato SINGLE o DOUBLE y raportarlo aal an fona haxadaciaal , aa puada 
aaerlblr lo algulenta: 

aS*SPACES(4} 

SlNaLB{V.aS)>1.234; 

PRlirr HBXS(CVL(aS), 8 ) 

o 

aS<SPACES( 8 ) 

DOUBLE(VtaS>>1.2345 
PRINT HEXS({V:aS). 8 )‘ 

PRINT HEXS((V:at*4).8) 

Algunaa da laa funclonaa aenclonadaa antarloraanta corraspondan 
aproxlaadaaanta a laa funclonaa PE&C. L0N0{x} (0 {x}) correaponda 
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■pro n i a ad— e n f • LPmc(x] paro no trabaja an al aodo auparvlaor. Por 
aao {x} as bAs rSpldo qua LPEB(. Cuando sa accada a ran(OS da aaaorla 
protafldos (0 a 204?) ae desancadana un arror da bus ( doa boabas) y 
te visual Iza ssl un arror da profrasacldo. 

EJeaplos 

adrX*XSI0S(2) 

({•TIMER 

FOR 1S«1 TO 4000 
*LPE£X(adr{} 

KEXT IS 

PRIKT (TlMBI*tS)/200 
tX'TINEX 

FOR 1S*1 TO 4000 
•(adrS) 

NEXT IS 

PHUrr (TIMBi>tS)/200 
FUJAT(»x)«PI 

— > La prlaara parts dal ajaaplo daausstra, qua {} as sSa valos qua 
LPESC. la safunda parts ascrlba lAdlractaaenta un aiiaaro da pun to 
flotanta an una varlabla. 

ByTB{IO10S(2)*4l60)«4KFF 
CARD(XBI0S(2)*4320}>UtFFFP 
LONQ (XB10S< 2 ) *4430 ) •UFFFFFFFF 

aS>*Pruaba*«CMRS(0) 

PRIKT CHAR(V:aS}s 
bS>SPACSS(S) 

CHAR{V:bS}>*paiabra* 

PRIKT bl.ASC(R10Hn(bS>) 

••> Prlaaro sa laprlaan dlractaaanta an la aaaorla da la pantalla al- 
funos valoraa y aparecen alll coao rayas. Entoneas sa aslpian tanto at 
coao taablta strlnfs bS. qua caralnan con un byta csro, donda at sa 
asigna convwiclonal asnta ( a travds da •CKRIO) y sa avldancls Incon* 
vane ion alaanta a travds da CHAR(}, an eaablo. bt sa aslgns a travda da 
CHAR(} y sa avldancls con PRINT con al CHRSio) vlalbla. 

VARPrH(s) V:x 

ARRPTR(y) V 

x: noabra da una vsriabla da cualqular tlpo 

y: noabra da uns varlabla o da un arraclo con pardncasls vaclo 

Con ARRPTR(y) o con *y sa dacaralna la dlraccldn do una varlabla 'y' , 
an si case da arrafloa o strlnc* •* dstaraina la dlraccldn dal 
dascrlptor. 

Coo VARPTR(x) 0 con V:x, on eaablo, sa dstaraina an al easo da strings 
la dlracclte dal strlnc alaao o an al caso da arraflos la dlraccldn da 
un alaaanto dal arroglo. 

Sn al caso da varlablas ascalaras ( no caapo o strlnc) al slfnlflcado 
da VARPTR, V:. ARRP1R y * as al alsao. 
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EJeaplo 

DIM xX(lO) 

ftS**Pnieba* 

PRIKT AnRPTR(xX())).VARPTR<xS(0)).V;sX(l) 

PRIKT AflRP1R(at).*aS.VARPT1t(aS) 

— > En 1« prlMrt line* reports Is dlrecclOn del descriptor del sr- 
rsflo Bsl COSO Is dlreccldn de los dos prlseros sleaentoe del csepo de 
sSO. En Is sefunds lines reports doe veces Is dlreccldn del deeerlp* 
tor del scrlnf de sS y uns ves Is dlreccldn del prlaer byte de Is 
csdens de csrscteres. 

ABSOUnXs.y 

x: uns vsrltble de cuslquler tlpo 
y! lexp 

Con Is Inecruceldn ABSOLUTE se csebls Is dlreccldn (ARRPR/*) de uns 
vsrlsble. 

EJsaplo 

ABSOLWE y.'x 

*•13 

y»7 

PfilffT x.y.»x.*y 

*•> Aqul le trsnsflere Is vsrlsble *y' s Is dlreccldn de 'x'. de eodo 
tsl, que si flnsl ss reportsn cabas vsrlsblM con el slseo vslor (7) y 
con la BlBSB dlreccldn. 

Borrsr a Incercsablsr 

CLEAR. CLR.ERASB 
SWAP 

SSORT.QSORT 
INSERT. DELETE 

CLEAR 

CLRxC.y....] 

ERASE*1UI.*2U....J 

x.y: svsr o svsr 

xl,i2: noebre de cuslquler srreflo 

Con CLEAR se borrsn todss Ise vsrlsbles y loe esepoa. Eats Instruccldn 
no se puede user dentro de estructursa da repetleldn P0R*MSCT o da 
aubprogTseae. A1 Inlclsllxsr ua progrses as elecuta sutoedtlcseente. 
alno su spllcscldn solo ee rssonsble an el trstsnlanto da errorea 
graves .con RESUME s. 

La Instruccldn CLR borrs las variables, qua as Indlcan an la Hats qua 
la auceda. Paro con CLR no ae pueden borrar srreglos. ERASE borrs sr- 
regloa coeplatos. loa cusles se pueden volver s dlaanalonsr daapuds da 
eats consndo. 

A dlfarencla de la version 2.0 tasbldn se pueden borrsr vsrloe cr* 
regies con la Instruccldn QIASE. por ej. ERASEx( } .y() . 
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EJeaplo 

y«3 

CLEAR 
PflIRT x.y 

y-3 
CLR X 
PRIKT x.y 

OlH x(10) 

PRINT FR£{0) 

ERASE xO 
PRINT FRE(O) 

— > laprlaa «n pantxlla tr«s vec«x al mjaaro 0 y una vaz al niiaaro 3- 
Lua(o alcuan doa niiaaroa, qua Indican qua al lucar da la aeaorla 
ocupado por OIM aa volvlA a Ubarar coa ERASE. 

SUAPa.b 

SWaU.fO 

3WAP*c.d() 

a.b : avar a avar 

e : Indicador aobra un daacrlpcor da arratloa 
d.a.fs noabra da un arraglo 

En au varianca ada aancllla la Inatruccidn SWAP alrva para intarcaa* 
blar doa varlablaa dal alaao tlpo (SHAPa.b). Pare taablAn aa puada 
usar para Intarcaablar doa caapoa. El lacarcaablo da eaapoa aa auy 
rdpldo, ya qua aolo aa intarcaabian loa raapactlvoa daacripcoraa. Aai 
caabtdn aa Intarcaabia la dlaanaldn da aaboa arragloa. Loa arragloa no 
daban aacar dlaanalonadoa para aato. 

C conelana al polncar aobra al daacrlpcor dal arraglo y d() aa al 
noabra dal arraglo an la carcara varianca. Eaca aa Incaraaanta anca 
codo an la Cranafaraiwla indlracca da caapoa a ai^rograaaa. 

La InacrucclOa SNAP aa dabarla dlfaranclar nlcidaaanca da la funclOn 
SWAP, qua aa ha cracado an al apartado aobra oparaclonaa blc. 

Elaaploa 

x>l 

y-2 

PRINT x.y 
SWAP x.y 
PRINT x.y 

— > Raporca deapuda da 1 y 2 taablbn loa niiaaroa 2 y 1. 

DIN x(3) 
changa(*x()) 

PRINT x(2) 

PROCEDURE change (adrl) 

SWAP *adrl.a() 
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ARRAyPIIX 4 (] ,1 
SWAP *adrt.a() 

RCTURH 

— > El arr«tlo x() •• eoaplata con umm on el procedlalento cbenie tin 
que eperetea el noabre x() en el eubprofraBa. Ael aa puada aeplear un 
subprograaa para varloe eaapoa. Entoncea se tranefler* la dlrecclbn 
del deecrlptor, coao an el ajeaplo y aadlante SWAP al eoaienzo y al 
final se accede a aacoa caepos bajo un alaao noebre. 

En la varaldn 3-0 se racoelanda aqul la tranafarencla indlrecta de 
caapos eoeo pardeetro VAR. 

DIM x(3) 

CHANOE (x()) 

PRINT x(2) 

PROCEDURE chanie (VAR a(>) 

ARRAYFILL a(),l 
RETURN 


QS0RTa(a)[,n]i;.JSn] 

0S0RTx*(i)WmU()[.n[.4*()]] 

SS0RTa(s)C.nl[.JX0] 

SSORTxE I • ) WITMl ( ) [ . n [ . j S ( ) ] ] 

a(): cualquler arreglo, taabldn arreglo de scrlnft 
iO: arreglo da anteros ([,& o S) 

JEO: arreglo da ancaroa da A bytas 
xS(j: arreglo da strings 

n: lexp 

s: *,• o nlngiln aigtto 

Con las Instrucclonae SSORT y QSORT se pueden salecelonar loa eleeen- 
tos da un arreglo segtln su taaaflo. Con SSORT se seplea el 
procadlalanco Shall'sort. coo QSORT el procedlelanto Quicksort. 

En los pardntesls. dalante da loa cualaa figure el noebre dal arreglo 
a selecclooar. se puede agregar un slpto eAa o eanos. El slpio aenos 
Indlca que loa alaoantos dal arreglo se ban da aeleecleear an drdan 
deereclenta. Bn aata caso apareca al alaeento eda granda despuda da la 
aalaccldn an al alaeanto caro dal arreglo. El algno eaa Indlca, qua al 
arreglo sa daba aalacclonar an drdan craclanta; an al alaeento caro 
dal arreglo figure entonees el velor eds pequaAo deepuda da la 
salaeeldn. SI no apareca nlngiln algno sa sslacclona an drdan craclanta 
( cono ♦). 

El pardaecro *n' Indlca, qua aolo sa daberdn salecelonar loa prlearoa 
alaoantos dal arreglo ( si vela OPTIOI BASE 0 dstos alaeentos son loa 
qua llavan loa Indlcaa 0 a n-l, slno Ian). 

Coeo tercar pardeetro sa puada indlcar otro arreglo de entaroa. qua 
taabldn sa selecelona an la seleccldn dal prlaar arreglo. Cada Intar- 
caablo de eleoentoa en al prleer arreglo tMbldn ae lleva a cabo en el 
segundo arreglo. Eato se puede user por aj. si an un srreglo apareca 
una clave da seleccldn ( cddlgo postal por ej.) y en varloa aparecan 
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otTM informeclooM «1 re«p*cw. BI campo d. enterei qi» s« Mopla w 
1» seleccldn conciena Ii»lice» d« arre»lo. por ej.. Indices del flchero 
"R" , veloree LOC pare SESC etc. 

En la seleccldn de arrefloa de strings se puede Indicar un criterlo de 
seleccldn con WTO en fot« de un «reglo con Por ^ ~nos 256 
eleaentos. Sin la tnstruccldn WITH se eaplea la cabla ASCII normal 
criterlo da seleccldn ( ver segundo eleaplo) . 


BJeaplo 


DIM xS(20l 

PRiyr *Sin saleccida: • 

FOR tJ-0 TO 10 
xS(lS)*RAKD(9)«l 
PRUfT x*u*):' •; 

NEXT IX 
PRINT 

QSORT xXO.lt 
DIM indaxX(20) 

PRINT *Salecel6n descendente: *! 

FOR 1X«0 to 10 
PRINT xX(tX)!’ 
indexS(iX)«lX 
NEXT IX 
PRINT 

SSORT xX(-).lI.lnde«X() 

PRINT 'Selaceidn ascandante: *: 
FC« 1X»0 TO 10 
PRINT xXUXh* ■: 

NE50- IX 
PRINT 

PRINT ‘Caapo aeoplado: *! 

FOR iX'O TO 10 

PRINT indexXUX):’ *s 
NEXT iX 


••> Evidancla un caapo no aelecclonado y doa hlleraa selecelonadaa de 
nuaeroB al aaar. En una cuarta hllera figuran los valorea de un caapo 
qua so acoplO a la seleccldn. 


DIM b|(256) 

FOR iX-0 TO 255 

b I ( iX ) ’ASC ( UPPQU (CHHX ( IX) } ) 

NEXTX 

FOR 1X»1 TO 7 
READ aS.bS 
t>|(ASC(at))>ASC(M) 

NEXT iX 

DATA A.A.0.O.0.O.t.A.O.O.a.U..S 
DIM nS(3) 

POR 1X>0 TO 3 
READ nS(lX) 

NEXT IX , , 

DATA Muhlaana.MOliep.Oberlauf.Unterlauf 

QS(»T nSO.4 
FOR iX-0 TO 3 
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PRirfT nSUX). 

NEXT iX 
PRINT 

QSORT nS() WITH b|0.<) 

TOR 1X«0 TO 3 
PRINT nS(lX) 

NECT IX 

--> S*l«ccion« dos v«c«( el arregle de etrlnga nSO. una vez aln WITH, 
una vez con. La Indlcacldn WITH lleva an eats cazo a la claalflcacidn 
da laa vocalee aleaanae eon dldreala dancro da las coiraapondlantas 
vocales sin dldreals y las alnlsculaa an las aayusculas. 

U6ERTz(l)«y 

DELETBxU) 

z: noabre da un arraglo 
li lexp 

yi aaxp o sazp. segdn al tlpo da variable del arraglo 

Con las Instrueclones U6QIT y DOfTB sa puada Insartar o borrar un 
alaoento an un arraglo. D6QTT Insarta an al arraglo 's' el valor da 
la axprasldn y an la poslcldn '1'. Bn asta caso sa dasplazan todos 
los elaaantos dal arraglo, qua tlanan un Indlca aayor qua ' 1 '. una 

poslcldn ads 'arrlba*. SI un elaaanto flguraba antes an la poslctdn 
1*3, por aj,. antoneas figure daspuds da laa inscruceldn INSStT an Is 
poslcldn l*d. El dlclao alananto dal arraglo sa borrs duranca aata 
procadlslanto da Inaarcldn. 

DELETE borra al alananto '1' dal arraglo 's'. Todos los alaaantos dal 
arregle. qua tlenan un Indies aayor qua '1', sa dasplazan una poslcldn 
ads ’abajo*. SI lUtlao alananto dal arraglo sa Iguala an esta ease a 
caro ( an caapos da eadenas da caractaraa sa Iguala a un string 
vaclo) . Eatas dos Inatntcclonea sa adaciian aspaclalnanta para la 
idalnlatrsclOn da llataa, an las cualaa sa daban Insartar y borrar 
peraanenteaanta elaaantoa. 

EJaaplos 

DIN xX(S) 

FOR 1X«1 TO 5 
zX(lX)>lX 

NEXT IX 

INSEST *X(3)-33 

pcm ix-o TO 5 

PRINT aX(lX) 

NEXT IX 

— > taprlaa an p«talla loa nOneroa 0,1,2,33>3 X *• 

DIN xX(5) 

FOR 1X«1 TO 5 
zX(lX)«lX 
NEXT IX 
DELETE zX(3) 

FOR 1X*0 TO 5 
PRINT xX(lX) 

NEXT IX 
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-•> Imprlae ea paoulla lo* niiaeros 0,1, 2, ^,5 y 0. 

Varlablaa reaerrada* 

palse.thue.pi 
DATES, TIMES, SErrUE 
TIMS) 

FALSE 

THUS 

TINSt 

Laa doa coaataaua FALSE y TRUE eonUenan valorat para falao (0) y 
v«rdada(« (-1} Id^coa. La conscanta PI cooUena al valor dal nilaara 
del elreulo PI. 

EJoplo 

PRDfT FALSE 
IP TRUE 
PRIKT PI 
ENDIP 

laprlaa ao patcalla loa niiaaroa 0 y 3<1‘*1S9265359- 

OATES 

TIMES 

SEITIHEhorU . racbaS 

DATES«fachaS 

TINES'boraS 

horaS.fachaS: aa<9 

La runeldn DATES roporta la facha dal aiataaa an el foraaco: 
n.NM.JJJJ (dia.aaa.ate) o W/IT/JJJJ ( foraato aaarlcano, var MODE) 
TIMES raporta la bora dal aiataaa. A^ui aatS al Poraato; 

HH:MM:SS ( horaa:alnuMa:ae(undoa) 

TIMES va varlaado an uitarvaloo da doa aa^undoa. 

Con la Inatruccite SETTIMS aa puada ajuacar la hora y la facha. En 
aaca caao, loa atrinfa horaS y fachaS deban canar al feraato indlcado 
raclta an TINES p DATES. Unlcaaaata en laa Indlcsclonaa dal aAo antra 
I960 y 2079 aa puada auprlalr la indlcacldn dal aiflo. Si SETTINE an 

uaa con un fomaco incorracto dal atrins horaS o fachaS, antoncaa no 
aa Bodlftcan loa «aloi«a actualaa. AdaaAa taabldn aa puada aodiflcar 
la facha y la bora m foraa individual a travda da OATU* y TINE*. 

Bjaaplo 

PRIKT DATES .TIMES 

SEITINB *20:15:30*. *27. 2.1968* 

PRIKT DATES.TIMS 

— > Ivriaa an patalla la facha y la hora actualaa dal aiataaa. fija 
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da nuevo laa varlablea y laa vualva a avldanclar. 

TIHER 

Con la funcldn TlMQt ae obtieoa la hora daada la conaxldn dal alataaa 
an doa cantAslaoa da aegundo. 

Bjaaplo 

CS'TIKBI 

FOR IX-l TO 2500 
NEXT IX 

PRIKT (TIMDt-tX)/200 

— > Indlea an aagundoa al tlaapo qua aa naaacica para al loop vaclo. 

Caaos aapaelalaa 

LET, VOID. - 

Con LET eaablOn aa puadan aalgnar valoraa an al eaao da noobraa da 
varlablaa, qua aon igu^aa a palabraa da Inacrucelonaa. Con VOID aa 
puada uaar una funcidn, aln qua aa alga aaplaando au valor davualto. 

LCTxay 

x: avar o avar 

y: aaxp o aaxp 

Con ayuda da LET aa puada aaignar a una variabla al valor da una 
axpraaldn. La axpraaldn y la variabla daban aar aabaa nuabricaa o dal 
tlpo cadana da caractaraa. Horoalaanta no aa nacaaarla la inatruccldn 
LET. En dlalactoa antarlorai da BASIC aarvia para podar aaplaar varl- 
ablaa coao palabras da UaCrucclonaa. Faro QFA-DASIC raconoca 
ganaralaaanta an foraa autoadtlca al una palabra da la Inatruccldo aa 
deba aaplaar coao variabla. 

Bjaaplo 

LET prlnt*3 
PRINT print 

— > laprlaa an pantalla al nCaaro 3* 

VOlDrx 

-fi 

fx: aaxp 

fl: laxp 

En languajaa da prograaacldn aa dlfaranclan noraalaanca inacrucelonaa 
da funclonaa. Laa Inatrucelonaa llavan a la alacucldn da cualqular ac* 
tlvidad. En laa funclonaa. data acclvidad conalgua «n valor . qua aa 
davualva deapuda. Bata valor davualto puada aar anconcaa alaaanco da 
una lapraaldn, aa puada avldenclar con PRINT o taabldn aa puada aalg- 
nar a una variabla eon un al^ ifual, ate. 

Pero an auchoa caaoa no la incaraaa al progranador al valor davualto, 
alno aolaaanta la acclvidad ajarclda por la funcidn. Aal, por aj., la 
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funcibn IHP(21 raport* •! cMlgo da uoa tacla pulaada. SI al pracrsu 
dabe eaparar UAlcoaenca la pulsaclbo da una tacla, antoocaa al c6dlfo 
da la tacla qua finallia la aspera no tlana laportancla.Oi tal case, 
aa la puada Indlcar a GFA*BASIC a travda da VOID qua ajacuta la 
funcldn paro qua olvlda al valor davualto. En contrapoalcldA a VOID, 
euando »a aaplea al tilde *** aa caicula un valor antaro jr luego aa 
olvlda. En VOID aa raallaa por aj. con IHP(2) una convaraldn 
(Innacaaarla) a un nuaero da punco flocanca. El eoapllador raconoce 
por al adlo eatoa cilculoa Innacaaarloa . 

BJaaplo 

VOID INP(2) 

o aajor 

-IHP{2) 

••> Solo aapara a qua aa pulaa la tacla aln la Inatmccldn. In- 
naeeaarla an aata caao, duBay*IKP(2) . Coo al Cllda al Intarprata aa 
ahorra adaaia la convaraldo dal raaultado an tai valor da punio 
riotanta. 

BASDEPAC8 

H1MQ4 

En la varlabla BASEPACE flfura la dlraccldn dal BASEPAOE dal 
intarprata QFA-BASIC. El BASEPACE aa una zona da la aoaorla da 236 
byta da longitud con la algulanta aatructura: 

Byta Contanldo 

0 a 3 Dlraccldn dal coalaaco dal TPA (tranalant prograaB araa) 

4a 7 Dlraccldn dal final dal TPA aAa 1. 

0 a 11 Dlraccldn dal aagaanto dal TSXTO dal prograna. 

12 a 13 Longitud dal aagaanto dal TEXTO. 

16 a 19 Dlraccldn dal aa^anto DATA. 

20 a 23 Longitud dal aagaanto DATA. 

24 a 27 Dlraccldn dal BSS (block atoraga aagaant). 

28 a 31 Longitud dal BSS. 

32 a 35 Dlraccldn dal OTA ( disk tranafar adraaa). 

36 a 39 Dlraccldn dal Baaapaga dal procaao llaaado. 

40 a 43 Raaarvado. 

44 a 47 Dlraccldn dal Bnvlronaant'atrlng. 

46 a 127 Raaarvado. 

128 a 253 Llaaa da caaando ( al prlaar byta Indlca la longitud 

dal taato dal eoaando) . 

En la varlabla HlNOt flgura la dlraccldn a partlr da la cual OFA-BASIC 
no uaa aka la aanorla. Eata aa un valor praaalacclonado. qua aa an- 
cuantra 16384 bytaa dabajo da la aanorla da la pantalla. 

BJanplo 

al*{BASEPA0S«IJI2C} 

00 

U*CHAB{aJ) 

EXIT IF LBI(aS)«0 
PRitrr aS 
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ADO aX.SUCC(LBI(aS)) t SUCC««1 
LOOP 


— > Aqui se evldsnclA el envlronaenc coapleto. 

AdBloletracldn d« eeaorla 

FSl£ 

BHOVE 

BASEPAOE.HUnM 

RESEBVE 

INLINE 

MALLOC . KSHRINK , MFREE 


FTl£() 

FRE{x) 

x: B«xp 

Eate funclAn eelcxile el eepeclo llbre de la Meorla. B1 parAaetro 'x' 
no ae conaldere an eate eaae. Con PRE(x) aa deaencadana adaaAa una 
Oarbace-CollectlM ( recoleceldo an el extreao auperlor de la aeeorla 
de laa xotiaa da atrlnca adn neceaarlaa). Lndlea el taaaAo de la 

xena da eaaorla. qua aatA llbre ain eata carbafe-collectlon. 

SJeaplo 

rrell*PRE(0) 

aaxS'rreli/V*) 

DIM xtiaaxX) 

PRINT rrelX.aaxX 

— > Dlaenalona un arreglo de tal aanera, qua ocupa aproxlaadaaente un 
tarclo del eapaclo llbre de la Maorie. Un caapo de enteroa de 4 byte 
ocupa 4 byte por eleaento. por eao de divide por 4. 

SHOVE ab_adr.an_adr,eant 

ab_adr.aa_adr.cant: leap 

Con ayuda de la Inatruccldn BNOVB ae pueden copier lonaa do la 
aeeorla. Bn la axprealdn ab_adr dice a partlr de qu6 direceldn figure 
la xona a copier. En an_^r dice en quA dlraeeidn ae debe dajar la 
copla de la xona de la eeaorla. Sn cant dice la caotldad de bytea a 
copier. 

La Inatruccidn ae ejecuta aecuenclalaanca aucho aAa rAplda con 
parAaetroa parea quo eon loparea.TaoblAn ae puede uaar cuando ae au- 
perponen la xona original eon la xona a coplar. 

Ejeaplo 

DIN acreea2{(64000/4) 
adrX* VARPID ( acrMn2I( 0 n 
FOR lX-0 TO 300 STW 100 
PBOX 0.1X.639.1X«30 
NEXT IX 

8M0VE XBI0S(2),adrX. 32000 
WOVE XBI0S{2).adrX*32000. 32000 
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KIDEM 

REPEAT 

IP NOUSEYOayS 

BHOVE •drI*ayX*80.XBI0S(2). 32000 
■yS>H0USEY 
EMDIF 

UNTIL N0USBC>2 

— > Cuondo M aueve •! ratte a lo larfo del aja y, s« haca al 
’acroUlng par la paatalla* da uaa zooa da la aaaorla. 

RESSlVEIln] 

n: lexp 

Con la Inacrucelda RESERVE aa puada Lndlear, euAn cranda ha da aar la 
zona da aaaorla uaada por OPA'BASIC. Cuando n ea poaitlvo, aa raaarvan 
n bytaa para al Incdrprata, al caato aa daja libra. Cuando n ea 
nagacivo, Asto eiana al alsao aPaeto qua laa doa Inatrueeionaa: 

RESERVE 

RESERVE FRE(0)-n 

Cuando no aa indlca un parAaatro aa raaacablaca al alaao aaeado qua 
al eoalanzo dal IncArpraca. 

La zona da la aaaorla aa puada raaarvar aolo an paaoa da 256 bycaa. La 
Inatruccldn aa puada \iaar. por.al., para llbarar una zona da la 
aaaorla para dacoa o raaourca-fllaa. 

51 aa achlcd la zona da la aaaorla para OPA-BASIC eon RESERVE, aa 
dabaria racordar da volvar a agrandarlo luago. ya qua alno al aapaelo 
dlaponlbla aa haca cada vaz aAa paquaAo con eada llaaada dal prograaa. 

Bjaaplo 

RESERVE 2560 

OCEC O.*\N0«WLUS.PRa'.*«.*‘ 

RSERVB 

••> Raaarva 2560 bycaa para el IntArpraM, carga WORfiPLUS.PRO ( al 
eziata) a Inlclallza al prograaa. Cuando aa locarruapa WRDFLUS.FRQ 
aa davualva al lugar raaarvado da la aaaorla al prograaa llaaado. 

ua.lHBadr.anz 

adr: varlabla entara da 6 bycaa, no varlabla da caapo 
am: conacanca antara aanor qua 32700 

Decraa da aata Inatruccldn no aa poalbla haear un coaaacarlo, ya qua 
Incamaaanca aa raaarva azactaaen ta an al lugar, an al qua alno 
flguraria al eoaantarlo. al aapaelo da aaaorla liaaaado ( o aea aa coa- 
plata con bytaa caro) . B1 aapaelo da aaaorla ccalema alaapra an una 
dlraceldn par. 

Al ejacutar INLINE aa aacrlba aata dlroccldo an la variable antara 
adr. Al alaacsnar o cargar al prograaa aa acopla al aapaelo da aeaorla 
resarvado. 
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SI poiiclona al cursor sobr« la llnaa dal prograsa qua contlena la 
Instruccldn INLINE y ae pulsa la tacla Help, entoncas aparaca an la 
lioaa superior del editor una llnea del eend con lea inetrucclonas 
LOA0.SAVE y CLEAR. Cod los Iteu del Mad ’LOAD* y ‘SAVE* es poelble 
cargar o aleacener flcheros an la llnea con la Instruccldn INLINE. Bn 
este caso se preselecclond el aufijo da eaeorla resarvado. Bo eace 
espaclo de la eeeorla ae pueden cargar por aj. cuadroa, cablaa o 
prograaaa asaeablar. 

Halloc(x) 

NFR££(y) 

NSKRlHK{y,x) 

x.y.i! laxp 

La runcldn HALLOC (QEMDOS72) alrve para reaarvar (alocar) zones de la 
aeaorla. Cuando al pardeatro ‘s' ea iguel *1. la funcldn reports la 
longlcud del aayor eapaclo libra relacionado da la aeaorla. este 
case NALLOC as una funcldn de eonaulta. 

Cuando 's' es tin miaaro posltlvo signlflca qua sa deban reaarvar 'x' 
bytes. En asta caso reports NALLOC la dlreccldn Inlcial del eapaclo 
resarvado de la aeeorla. SI aparece un error en el In tan to de reserva. 
ee reports cero. 

Cuando ae deben alocar aspaelos de aeaorla ads grandee, sa dabe 
achlcar prlMro el espaclo da la eeaorla us ado por QTA-BASIC. Espaclos 
alocadoa da la asaorla dabarlan ser llberados sin falta antes de la 
flnalliaclOn dal prograae. Esto ocxirre autosStlesaente cuando ea aban- 
dona el Intdrprete. 

KFRa (OSIDOS73) vualve a desecupar el lugar resarvado da la aeaorla. 
En esto caso figure en 'y' la dlreccldn Inlcial dal bloque de aeaorla 
qua so dabe deaocupar. 0 sea un valor devualto obtanldo eon NALLOC. El 
valor devuelto es cero. cuando la desocupecidn sa flnallsd sin er> 
rores. o un nilaaro de error nagatlvo. 

HSHRINK (GStDOS74) achlea al espaclo resarvado da la asaorla. qua an- 
tarloraenta habla sldo alocado con NALLOC. El parSaetro 'y' contlena 
en este caso la dlreccldn del espaclo resarvado de la asaorla. qua 
habla sldo devualto an NALLOC. Bn 's' figure la nuava longltud tadrlca 
dal bloque de la aaaorla qua se qulere achlcar. La funcldn NSKRINX 
reports 0 cuando ae ajecutd correctaaente el aehlcaalanto. -40 cuando 
ae Indlcd una dlreccldn orrdnea coao 'y' y -67 cuando la longltud 
tadrlca nueva dabe ser sSs grande que la longltud actual. 

Es iaportanta. quo en NPAEE y HSHRINK nunca sa transflara un pointer 
errdnao. 

EJeaplo 

RESERVE tOOO 
PRINT NALLOC(-l) 
adrl>NALLOC(60000) 

PRINT adrX 
IP adrl>0 

X J*I 6 HRINK ( adri . 30000) 
yl*HFREE(adrS) 

EKDIF 
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RESERVE 

— > lndlc 4 •! cauAo d* «*p«cla da aeacirla libra 
cranda y luaco la dlracclte da una zona resarvada 
60000 bytes, achlca Asta ( si sa rasarvd azltosaaanta) 
lo desocupa coapletaaante. 


ralaclonado aAs 
da la BBBorla da 
a 30000 y luago 
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3 - Operkdorva 

Operadora* aon aleaancoa de lai languaja da profraaacldn qua air- 
vao para unir y eoaparar axpcaslones tn^rlcaa, Idflcaa y da 
eadanaa da caractaraa. &i aata apartado aa praaantan loa 
operadoraa da 0FA*BASIC an la alpilanta sacuancla: 

En al prlaar apartado aa tratan loa operadoraa nuadrlcoa (*.* 
DIVA. NOD). Slloa unan eada vat dM axpraalonaa nuadrlcaa 
y producan un nuaero. qua pueda aar aalfnado por aj.een al aigno 
l|ual da una variable. Loa operadoraa * y * tlanao una aagunda 
funcldn, aa puodao aaplaar coao alp«o. 

B 1 tofundo apartado trata loa operadoraa Idglcoa 
(AND.Ot.XOR.HOT.INP.EQV). Unan doc axpraalonaa Idglcaa y producan 
un valor da vardad (vardadaro o falao) . Bn eate caao oeupa un 
lugar aapecial al operador NOT. Solo aetila aobra una expraaldn 
IdglCB y nlaga au valor da vardad ( da vardadaro raaulta falao y 
vicavaraa) . 

En el apartado 3 ** anallza al oparador da eadanaa da caractaraa. 
Eate operador ea el algrto aAa (•), el eual una doa axpraalonaa da 
eadanaa da caractaraa. 

El algulanca apartado daacrlba loa operadoraa ralaclonalaa. Con 
au ayuda aa pua^n eoaparar doa axpraalonaa nuadrlcat o doa ax* 
praaionaa da eadanaa da caractaraa. Coao raaultado aa obtlana un 
valor da vardad { vardadaro o falao). 

En al lUtlao apartado aa trata la aacuancia an la cual aa 

ajaeutan loa oparadoraa, cuando aparacan varioa da alloa an una 
axpraaldn nuadrlca o Idglca ( Jararqula da loa operadoraa). 

Alii taablCn aa praaantan lea alabeloa da loa parCntaala *(* y 
')’ con loa cualaa aa puada aodiflcar la aocuancla la 

ajacueldn. 

Loa oparadoraa arltaAtleoa 
• - • / • OIV \ NOD 


Loa oparadoraa arltaacieoa *. *, *, /, *, DIV. \ y aod conactan 
doa axpraalonaa nuaarlcaa y producan un i»3aaR>. bta ntearo puada 
aar a au vat al eoaponanta da una axpraaldn nuadrlea o Idgica, ta 
puada aalgnar a tma varlabla o aa puada avidanclar. por aj., eon 
PIIINT. Loa oparadoraa • y - taabldn aa aaplaan coao alptoa. 

x*y Produce la auaa de loa nuaaroa a a y ( adlcldn). 

i-y Produce la dlfarancla x aenoa y ( auatraccldo) . 

x*y Produca al ptoducto de x por y ( aultlpllcacldn) . 

x/y Produca al coelanca da x dlvldlte por y { dlvlaldn). 

x‘y Produca la potancla da un rniaaro con baaa x a y coao ax 

ponenta ( exponenclacldn) . 

X DIV y Produca la parte entera dal raaultado da una dlvlaldn de 
x\y X dlvldldo y ( dlvlaldn antara) . 

X HOD y Produca al raato da x dlvldldo y (arltadtlca aodular) . 
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Para DIV y HOD valan Ita alfuleneea ralaclooeai 

X OlV y • lKJNC(x/y) 

X HOD y ■ x*y*mSIC(z/y) 

Eiaaplo 

13 DIV 4 davualva al raaultado 3 
13 MOD 4 devualva al raaultado 1 

«x Provee al valor x con un al(no poaltlvo. o aaa da x. 

-X Provaa al valor x coo un al^w nacaclvo. El niiaaro produeldo 

Claoa ancoocaa un aigno nagatlvo. al x era poaltlvo y un 
algno poaltlvo. al x era nafatlvo. 

Oparadorea Idglcoa 

AKD OR XOR NOT lir BOV 

Batoa oparadoraa Idgtcoa trabajan a nival da bit para valoraa an* 
taroa da 32 bit. 

Loa oparadoraa conactao doa axpraalonaa Idglcaa y producan un 
valor da vardad (vardadaro o falao) • Una axcepcldn aata dada por 
al opamdor HOT. qua nlaga al valor da vardad da la axpraaldn qua 
Plgura datrda da Al. 

El valor ouaArlco para lo *16flcaaante falao* (FALSE) aa 0. 
Cualqular otro valor nuoArlco aa Intarpratado cooo ’Idglcaaanta 
vardadaro*. La variable TRUE tlana an aata caao al valor *1. 
Todoa loa oparadoraa Idglcoa aa puadan eaplaar an axpraalonaa 
nuaArlcaa. Laa oparKlonaa Idglcaa aa ajacutan an aata caao bit a 
bit. 

La Bccldn da oparadoraa Idflcoa aa puada daacrlblr iddoaaaanta an 
baaa a laa Uaaadaa tablaa da vardad. En eataa tablaa flguran an 
laa prlaaraa colunaa loa valoraa da vardad da laa axpraalonaa 
conactadaa (oparandoa) y an la lUtlaa coluana al valor Idgico 
produeldo. 

NOTx 


x: laxp 

El oparador HOT (nagacldn) nlaga la axpraaldn Idglca qua la 
a\icada. Ea al dnlco oparador Idglco, qua tlana aolo tin arguaanto. 

Hodirica cada bit individual da su arguaento. 

X NOT a 

V t 
f » 

Ejai^loa 

PRIKT NOT FALSE 
PRUrr HOT TRUE 
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PRIKT NOT 0 

--> Gn la ptntalla sa vlauallzan loa nuaaroa -l.O y -1. 
x>l 

PRINT BlNS(x,2) 

PRIKT BINSINOT x.2) 

— > 01 

10 ta vlauallzan an la pantalla. 
x*»l7 

PRUrr 81NS(KI(.S).xX 
PRIKT B1N$(N0T xS.8).N0T *X 

--> Ratoma loa valoraa: 

00010001 17 
11101110 -l8 

xAKDy 

x.y) laxp 

El oparador lOfleo AND (conjuneldn) aaallza, tl doa axpraalonaa 
IdClcaa X a y aon aabaa vardadaraa. Solo an aata eaao produca al 
valor TRUE (Idcleasanta vardadaro, •!). 31 una da loa dM o aabaa 
axpraalonaa Idflcaa aon Talaaa. taabldn AND produca FALSE. 

Con AND aa coapara cada uno da loa 32 blca da aua arfuaancoa. 

X y xANDy 

H * ■ 

W f f 

r V f 

r f f 

BJaaploa 

PRINT TRUE AND -1 
PRINT FALSE AND TRUE 

— > Bn la pantalla aa vlauallzan loa nilaaroa *1 y 0. 


x»3 

ylO 

PRINT aiN<(x.4) 

PRINT BlNS(y.<l) 

PRINT BINE(x AND y.4).s AND y 

— > Ratoma loa valoraa; 

0011 

1010 

0010 


xORy 

x.y: laxp 
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La InatrucciAn OR |dlayuncl6n) anallsa. si por lo asnos una de 
dos axprasiooas 16clcas a a y as verdadara. En asta caao aa 
produce al ‘vardadero lAgtco*. Solo si tabos say son 
‘IdClcaaanto ralsoa*. caablAn a OR y produce al *falso Idglco*. A 
dlferencla do XOR taablAn sa produce un *verdadaro Idgleo* an al 
caao an qua aabos x a y son vardadaros. 

OR slgnlflca, qua uno o aabos arguaentos son vardadaros, TaablAn 
OR trabaja a nival da bit. 

X y X or y 

a w H 

W f H 

fa H 

r f f 

BJaaploa 

PRIOT TRUE Oft -1 
PRlWr FALSE OR TRUE 
PRINT 0 OR FALSE 

•■> En la pantalla apatocan lo# niiaaroa *li*l y 0. 

x*3 

y-lO 

PRINT BINSlx.D) 

PRlirr BlNt(y.A) 

PRINT BINS(x OR y.«).x Oft y 

--) 0011 
1010 

1011 y al nuaaro 11 aparacan an la pantalla. 


xXORy 


x.y: laxp 

Bate oparador anallxa, al una da doa axpraslones Idficai x a y aa 
'Idglcaaanta vardadara*. En asta caso x XOR y taablAn da 
*ld(lcaaanta vardadaro*. SI x a y son aabos 'Idglcsaanca 
vardadaros* o aabos *16gleaaanta ralsoa*. antoncas XOR da 
“IdClcaaanta falao*. 

La dlferancla con OR conslsta an qua IRUS OR 'IRUS y TRUE XOft TRUE 
dan FALSE (XOR* dlsyuncldn axeluslva). 

XOR da vardadaro (solaaanta) cuando an uno da sus arpjaantos sa 
rija al bit correapondlwita. XOR caablAn trabala para cada uno da 
los 32 bits da sus arguaantos en fona individual. 

X y X XOR y 

w w r 

w f a 

fa a 

f f r 
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Bjeaplos 

PRIOT PALSE XOR -1 
PRItn* -1 XOR 1 
PRlIfr 0 XOR PALSE 

—> gn el Bonltor apareeen los nuaeros -1.0 y 0. 


x*3 

y»10 

PRINT BINS(x,4> 

PRINT BINI(y,4) 

PRINT BINS(x XOR y.<l).x XOR y 

— > Recomx lot valor**: 

0011 

1010 

1001 9 

X IMP y 
x.y: lexp 

B1 operedor IMP (inpliucldn) correepond* • un* deducclta lOjlca. 
Un deduccldn 16 b1c* da eece tipo iinlca*«nte puede »er fala* 
cuendo de un« eflraaeldn verdeder* se deduce algo Paleo. Por lo 
tento. X IMP y eolo ee felio cueodo x e* vardadero e y ea falao. 

IMP trabaja a ntvel de bit. En concrapoalcldn a AND. OR. XOR y EQV 
aqui la aecuancia ea de iaportaneia. 

X y X IMP y 

w u ■ 

u f r 

f W V 

f r w 

Biweaploa 

PRINT -raUB IMP -1 
PRINT 0 IMP FALSE 

PRINT ir(;b imp 0 

— > En 1* pancalla apareeen lo* niiaaroa -l.-l y 0. 


x*3 

ylO 

PRINT BIHI(X.*I) 

PRINT BlH*(y,4) 

PRINT BIHt(x IMP y.4) 


"> Retom* lo* valorea: 
0011 
1010 
1110 


xEQVy 
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*.y: l*ap 

B1 op*rsdor EQV (•qulvalencl*) d&rA coao resultwJo *16|lcasente 
vardodaro*. euando laa axpraaionaa Idflcaa x a y Uanen al alaao 
valor Idcleo. 

EQV crabaja a nival da bit y flja loa blca qua son isualas an aa- 
bos ar|uaantoa. Eato aa axactaaanta lo opuaato a lo qua ocurra 
con XOR, da tal aanara qua (a EQV y) tlaaa al aiaao alfnlfleado 
qua (NOTxXORy). 

A B A EQV B 


V ■ V 

V f f 

f w f 

r r m 

BJaaploa 

PRIKT TRUE EQV FALSE 
FRIHT FALSE EQV FALSE 

*-> Bn la pancalla aparacen loa miaaroa 0 y *1. 

x«3 

y*10 

PRIKT BXNS(x.4) 

PHIKT BINS(y.tl) 

PRIOT BlNS(x EQV y.«) 

--> Ratoma loa valoraa: 

0011 

1010 

0110 

Oparador da cadaaaa da caractaraa 
aS»bS 

aS.bS: laxp 

Cod al oparador * caablAn aa puaden cociaeear cadenaa da caroc* 
taraa. El raaultado aa una cadana da caractaraa, qua contlana at 

y bt. 

EJaaplo 


aS*’QFA-* 

PRINT at*'BASIC* 

— > En la pantalla aparaca al taxto 'GFA-BASIC . 

Oparadoraa ralacloaalaa 

. .. >. <■ <> 

Con loa oparadoraa ralaclonalaa aa puadan coaparar axpraaionaa 
nuadrlcaa, Ibflcaa y da eadanaa da caractaraa antra al. El raaul* 
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tado de asta coaparacldn aa aiaapra un valor Idglco (verdadacoa«l 
o Talso'O) . Una axcapcldn la eonatltuya al oparador Con B1 no 
an pueden coaparar axpraalonea da atrlnga. 

x»y 


*.y: exp 

El oparador « coapara doa expraalonaa nuatricaa o da cadenaa da 
caraccaraa an cuanto a Igualdad. Cuando aabaa expraalonaa aon 
Ifualea. dari coao raaultado 'ld(lcaaanta vardadaro’, caao con- 
trario dard 'lOflcaaenta falao*. 

EJaaplo 

x«6 

IP 2.X/3 
PRIffT -Ok" 

ENDIF 

PRINT 2-X/3 

"> En la pantalla apareca Ok y >1. 


X" "y 


x.ys aoxp 

Coapara doa expraalonaa nuadrlcaa an cuaneo a una ifualdad 
aproxlaada. Para aata coaparaeldn Intarvlanan ocho y aadlo 
lufaraa daapuBa da la coaa (26 bit da la santlaa dal ndaaro da 
punto riotanca). El eaplao da • ■ ax Otll an aqualloa caaoa an 
quo BO uaan ndaaroa da punto flotanta, m loa cualoa puadan 
aparacor lapraclalonax an al rodondao. 

BJaaploa 

PRINT l.OOOOOOOOOl'l 
PRINT i.0000000001»l 

En la pantalla aparacan loa ndaaroa 0 y -1. 

a. SINQ(T7» 

b. SlN(RAD(77)) 

PRINT a«b 
PRINT a»b 

--> Sa vlauallzan loa nuaaroa 0 (16(lcaaanta Talao) y -1 
(Idflcaaanca vardadaro). 


x<y 

x>y 

x<»y 

x>*y 


x,y: axp 

Eatoa oparadoraa alrvan para coaparar la aafnltud da oxpraalonaa 
nuadrlcaa y da cadenaa da caractarea. En laa axpraslonaa 
nuadrlcaa aa coaparan loa ndaaroa. qua aa puadan calcular a par- 
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Cir allM. 

En el ceeo de lee expreelooee de itrlnci le coeperacldn ee rigo 
por el cddlfo ASC de loe ceneteree. K1 itrinc "ABC'ee trite coeo 
la leeitencia de nuMroa 65.66 y 67- Si le aflreaeldn dice 
"ABC">*AAA". entofice* ee coaperan prlaero loe dot priaeroe carec- 
terea qua tlen»> el cddlfo ASC 65- Luefo ta toaa el iHuleftta 
caricter pare la coaparacldn. Va qua B (CCdlfo ASCII 66) tiane un 
cddlKO aayor que A. B ae loterpreta coeo 'mayor'. Bn eate punto 
ae intarruape la coeparecidn da loa atrlnc* y 

aflreacldn ea "Idflcaeanta verdadaro". por lo tan to. ABC aa 

eayor qua *AAA* . 

Un eaao aapeelal da la coaparacldn da atrln*a apara:a euando uno 
da loa atrlftga tareina an tea da que aa deacubran alfnoa 
dlferentea. Un ajaaplo aarla: *AA'>’A*. Eata afltmacldn ea 
'IdKleaaanta verdadara*. ya qua un alfno no exlatante aa con- 
aldara el *al*no aenorV Haata -A*»a»pl(0)>*A* ea 'Idflcaaente 
verdadara*. 

Con reapeeto a loa operadorea Indlvidualea: 

x>y ea verdadaro. euando a aa aayor quo y. 
x<y aa verdadaro, euando a aa aanor qua y. 
x>ay ea verdadaro. euando x aa aayor o ifual que y. 
x<*y aa verdadara, euando x ea aenor o Ifual qua y. 

Laa roreaa de eacrlbir x<»y y x«<y aai coeo x)-y y x»>y llanen el 
■laao valor. TaablOn aa pu^ convartir x><y en xOy. 

BJeaplo 

PRIOT *AAA">*aaa* 

pRiifr •i<«4-5 

••> En la pantalla aperecen loa niiaaroa 0 y *1. 


xOy 


x.y: exp 

Eate operedor anallxa, al doe exprealonea nunarlcea o de atrin«a 
aoi dealgualaa. Si ea eate al eaao. la afiraacidn aOy aa 
'IdfleaMnta verdadara*. Si x a y eon ifualaa. antoocaa xOy dari 
'IdBlcaaence falao*. Laa forMa da eacrlbir xOy y x><y tlanan el 
alaao valor. 


BJeaplo 

PRINT •prueba’O'pruebe* 

PRINT -104-5 

Bn la pantalla aparacen loa ndaaroa -1 y 0. 
R1 operedor da aaicsaelda 


x-y 
x: var 
y. exp 
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El slgno iBual • no lolo se puode us*r coao oparader do 
coaparacl6n, slno tublta coao operador do aalgnacldn. Bn so tie 
caso aa decoralna al valor da la at^realdn y quo flfura a la 
derecha dal slgno *•*, y asta valor aa aalgna a la variable x qua 
flgura a la Izqularda. 

Expraslenaa nuadrlcaa se puaden aaignar aolo a variables 
nuadrlcaa. expreslones da cadenas da caractaras se puaden aaignar 
solo e expraalonas da strings. 

Para la aalgnaclte taabldn exists la Inatruccldn LET, var>exp 
(coaparar LET) , quo tlena al alsao valor y qua taabldn porelto la 
aslgnaelbn an varisblea coeo por aj. let o ran. 

EJeaplo 

x^LENt'Prueba")*! 

aS>’aP'‘*CKRS(65) 

PRINT x.aS 

— > En la pantalla sparece 7 y 'CPA'. 

Jararqula da loa oparadoraa 

Cuando en una axpresidn se encuantran varioa oparadoraa se 
ejecutan en un drdan decarainado. Esta sacuencla dapanda da la 
llaaeda Jerarqula de loa oparadoraa. Los oparadoraa, qua tlenen 
loa prlaaros lugaras dencro da esta jerarqula, se ojeeutan an 
prlaer lugar. 


La jerarqula es: 


0 


.<>•><•<> 


• / 

DIV HOO 

• • 

■••<<■>■> <> 
AND OR XOR INP EQV 
NOT 


Parentesls 

Adlcldn da cadenas de caractaras 
Coaparacldn da cadenas do caractaras 
Slgnos 

SxponanclaclOn 

Hultlpllcacidn, dlvlsldn 

OlvlaldA antara y arltadtlca nodular 

AdlclOn, sustracclOn 

Oparadoraa ralaclonalas 

O^radoras Idglcoa 

Negacldn 


Con syudas de los pardntaals es poslbla ejaeutar an prlaer lugar 
squellos oparadoraa qua tlanan una jararqula baja. En la sacuan* 
cla taablta so raconoca la conoclda ragla 'la nultlpllcacldn y 
dlvisldn pracaden a la vllcldn y sustraceldn*. 


EJeaplo 

PRINT 

PRINT {2*4)*3 
PRINT 2»<4*3) 

PRINT 3*2*2 

— > En la pantalla sparacen los niineros l4,l8,l4 y 12. 
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4 “ PuBclooM auaBrleaa 

PuBclosea utaaAtlcaa 

A8S.SGN 
ODD. EVEN 

itrr . mjNC . FIX . HtAC . Rouo) 

MAX, MIN 
SQR 

EXP.LOO.LOGUO) 

SIN , CQ6 . TAN . ASU . ACOS . ATM . DGO , RAD 
SINQ.COSQ 

Hay fuAclonaa nuaArlcM para laa alfulancaa tareaa: Laa Funclonaa 
nuaArleaa ABS y SOI dao al valor abaoluM y al aigno da una 
axpraaite nuadrlca. 000 y EVOI anallxan. al un nCiaaro aa par o 
lapar. IKT.TItUNC.FlX y FRAC indlcan loa lugaraa ancaa y dacrAa 
da la coaa da axpraalonaa nuaArlcaa. ROUND radondaa una 

aapraaldo. 

MAX y HIN indlcan la aayor o la aanor da varlaa axprealonaa y SQR 
ealcula la rala cuadrada da una axpraalOn. Laa rumlonaa 
crifonoadtrlcaa aon ASIN.ACOS.SIN.COS.TAH y ATM. 09 y LOO cal- 
culan patanclaa y logarlcaoa dal nuaaro da Bulat. LOOlO ealcula 
al logmritao an baaa 10. 

DEO y RAD airvan para convartlr gradoa an radianea . 

RND. RANDOM, RAND y RAHMHIZB airvan para produclr niiaaroa al aaar. 

ABS(«) 

SCM(a) 


x: aexp 


La funcldn ABS da al valor abaoluto da una axpraaldn nuadrlca. 
Eato llava a loa alguiancaa valoraa da racomo: 


luago ABS(x) aa 


nagacivo --> 
Ifual caco --> 
poaitlvo *-> 


-X 

0 


a 


Con la funcldn SOI aa puada aabar, cuAl aa al alfno da una 
axpraaldn nuadrlca. Vala lo alfulanca: 


luagD SQ((x) aa 


nafatlvo ~> 
ifual caro — > 
poaitlvo "> 


-I 

0 

1 


Bjaaplo 

x»2 

yA8S(x| 

PRINT SO<(x).ABS(3'3).Sa((ABS(x*3)) TABS(x*3) lat flalch 6 


— > En la paotalla aa vlauallzan loa nuaeroa -1.2 y 1. 
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000(a) 

EVEN(x) 

x: aexp 


Aabxs ftmcione* uudtzaA. at 1« exprealdn nuaArlca x e« par 0 
par. ODD da al valor -1 (THUS), cuando x as lapar y 0 (FA1£E). 
cuando x as par. EVEN da -1 para un x par y 0 para un x lapar. El 
caro sa erata coao un niiaoro par. 


lua(0 ODO(x) as 


lueco EVO((x} as 


par 0 (FALSE) 

lapar — > -1 (TBUE) 

Ifual 0 --> 0 (FALSE) 


•1 (WUE) 
0 (FALSE) 
•1 (miB) 


Ejaaplo 

x«2 

PRINT 0DD(x).BVEH(-2}, 000(3*5). EVSN(-3*«) 


--> Ea la pantalla sa vlsuallzsB loa nCiaaros 0.>1,*1 y 0. 


i(fr(x) 

Tmmc(x) 

FU(x| 

F*AC(x) 


x: aaxp 

Escaa funclonas indlcaA los lucaras antas y datrte da la coaa an 
axpratlonas nuairlcaa. INT.THUNC (y la Puncldn FIX Idtaeica a 
TRUNC) ratoman uo nOaero entare. La funcldn TRUNC corta los 
lufaras da x daspuds da la com. IlfT ratoma al mayor nOmaro an- 
caro. qua as aanor a Ifual qua x. La dlfarancla antra TRUNC (FIX) 
y INT no so puada racofiocar on valoras poslclvoa da x. Bn camblo, 
an un X nofatlvo eon lufsraa datrds da la coaa aparaco una 
dlfarancla. Asl, TRUNC allalnarla an un x da >1.2 al lufar 
daspuda da la cons y eonsarvaria al valor -1. En camblo. INT 
buses al slfulanta ndaaro snearo aanor qua -1.2 y halla eono 
rasultado *2. 

FRAC Indlca los lufares do x datrda da la coaa. 0 saa allalna 
los lufaras antas da la com daiando la parts fraeclonarla. El 
valor obcanldo por FRAC tlena al olsao slgno qua x. FRAC as coo- 
plamantarlo da TRUNC y no da IJfT. Vala lo slfulanta: 

X • TRUNC(x) • FRAC(x) 

SI so r ae aa plaza TRUNC por OfT, no vala ads la acuacldn on al 
caapo da loa nCaaros nafatlvos { por oj. para y Ifual -1,2). 

Elampio 


X— 1.<I 

y»TRUNC(1.3) 

PRINT y.lNT(x).FIX(3*z),FRAC(x-3) 

— > En la pantalla aparacan loa nilMros 1.-2. -4 y -0.4. 
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AOUND(x[.n]) 


x: «exp 

n: lexp 


La ftincl6n »XWB(x) da un valor radondaado. La var^w 
ROUND(x.n) r«londea la axpreaidn 'x'con ‘n’ lufarai •***^„“/* 
coaa SI 'o' aa Ifual a caro. »a redondaa co»o an ROUKDlx} a 
nuaaraa «»earoa. SI 'n' as nagatlvo. aa rwtondaa antaa <*a « 

COM. Aal. R0wn)<155.-1) da al nuaaro I 6 O (coaparar taabian 
ClNTO'Sadondao eon raaultado antaro). 


BJaaploa 

y>R(XncD(>1.2) 

PRIKT y.mXWDU.?) 

— > Vlauallsa an la pantalla loa valoraa -1 y 2 


FOB 1J«»5 TO 5 
PRIKT IX.ROUHD(PinOO.lS) 

NEXT iS 

••> laprlaa la pantalla la varlabla y la corraapondlanta 

axpraaldn foraataada. AdaaAa aa aultipllca al nuaaro PI ^r 
100 y aa avldaacta an fona radondaa con 11 lu(aroa. Si 11 
aa nacativo, aa radondaa antaa da la coxa. 

NlN(xC .y.a....]) 

MIN(xl[.yt.aS....]> 

NAX(x[.y.a...]) 

NAX(x$i.yS.xt....I) 


x. y.a: aaxp 

xi. yS.it: saxp 

U funcidn MAX Indlca la mayor da laa axpraaionaa nuadricaa 

x.y.z qua aa praaantan an la liata da partaatroa do aata 

funcldn. Mlli datormina an forma anAloga al manor valor. Laa fun- 
clonaa MAX y HIM aa puadan apllcar caablftn an expraalcnaa da 
cadanaa da cmrmctaraa. 


EJamplo 

x“3 

y.MAX{3.5.5-<t) 

PUtrr NlN(a.y].HAX(-l.x*2) 

— > En la pantalla aa vlaualtaan loo nuaaroa 3 r *■ 
SQR(x) 


x: aaxp 

Ratoma la rmlx cu«lrmda da la oxprmaldn nunBrlca x. SI la 
axpraaldn x aa manor qua caro. aa vlaumllxa un manaaja da arror. 
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BjMpioa 

*1 

x-9 

ySQR(x) 

PRIOT ypSORfiJN) 

--> En la pantalla aparacen loa nOaarea 3 y 4- 

PRIKT SQR(SQR(16)) 

PRIKT SQR(-2) 

— > Sa vlauallxa al nilaaro 2 y lua (0 un aanaaja da amp. 

EXP(xl 

LOO(x) 

LOOlO(x) 

x: aaxp 

EXP caleula la pocancia x en base al nuaaro da Eular 
(a«2, 17620tS2d<l. ) y LOO produce la funeldn lavaraa da data, o 
aaa dataralna al locarltao da x an baaa a ( locarltao natural). 
En foraa anAlOfa LOOIO ratoma al locarluo da x an baaa 10 
(lofarlCBo daclaal). 

La axpraaldn nuaArlea x daba aar aayor qua caro an laa funclonaa 
lOfarltalcaa. alno aparaca un aanaaja da error. 

EJaaplo 

x*2 

yOCP(2) 

PRllfT y.L0ai0(2*S).L0a(x) 

— > En la pantalla apar«a 7.389056098931.1 y 0,6931«7l605599. 

SlN(x) 

C0S<x) 

TAH(x) 

ATH(x) 

RAO(vrad) 

SlNQ(frad) 

COSQ(crad) 

x.srad: aaxp 

Eataa aon laa runelonea trlconoadtrlcaa. La axpraalte nuadrica x 
aa Intarprata coao radlanaa. Laa funclonaa ealculani 

SIH — > aano 
COS — > coaano 
TAN — > cancanta 
ASIN — > arcoaano 
ACOS ■'> arco e oaano 
ATN — > arcocanBonca 

Para eonvartlr ua inculo da radlanaa a fradoa aa uaa la funcldn 
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0SG() o bl«D M funcl6a Invarsa RAD(). DEC(x) corraspondo a 

(>*iaO/PI)- 

Lu funclonea SIMQ y COSQ dan valoraa intairolados da aeno o blen 
da coaano. para alio sa aaplea lacamaMnca dal CFA-BASIC una 
cabla MA ioa valocea dal sano an incaivaloa da fradoa. Oa 
Bcuerdo coo al valor dal arfuaecito da la funeldn CRAO aa Inter' 
polan llnaalaeata lot valoraa Intamdloa an Intervaloa da I/I 6 
fradoa. Bata praciaido aa auflclanta para la rapraaantacldn 
crAflca an la paatalla y no aa difarancla da loa valoraa cal* 
culadoa da SIN o COS pare aa notorlaaanta aAa valoz ( 
aproalaadaaanta 10 vacea aAa valoa). 

A difarancla da SIN y COS loa partaatroa da SINQ y COSQ flfVkran 
an radianas. 

SlNQ(frad) aquivala a SlNIRAD(grad) ) 

CISqIctW) aqtilvala a COS(RAD(frad)) 

BJaaploa 

x«90 

y«C05(x*PI/l80) 

a-270^I/l80 

PRINT y.SIN(a).TAN(<t3).A'ni(l/2) 

"> Sa vlaualltan loa nCtaaroa 1 .- 1 . 1 . 6197751905 M y 
O.A636A76090006. 

alphaS>30 
PRINT SlNQ(alphaS) 

— > Gn la pantalla aparaca O.J. 

Oaaarador da otearoa al aaar 

RND[{x)J 

RANI)CM(b) 

RAHO(y) 

RANDOHlZEy 

x: aexp 

y: laxp 

Bate fTupo da coaandoi altva para produclr miaaroa al azar. RND 
produce un oiiaaro al azar antra 0 y 1 ( Inelualva 0. azclualva 
1). ei parlwatro opclonal x no tlana alptlPlcado. 

RANDOM produce un nuaaro al azar antaro antra 0 y x (Inelualva 0. 
axelualva x). La axpraalOo n\iaarlca x no daba ear antara. alno 
todoB loa niiaaroa dabM aparacar con la alaaa probabllldad. 

RAND produce un nuaaro al aaar antaro da I 6 bit antra 0 y yl. Sa 
aval(iaa I 6 bit da y. 

El coaando RANDOHlZE lAlciallaa al fanerador da niiaaroa al azar 
con al valor 'y'. Aal. cuando al fanarador da niiaaroa al azar sa 
lAlclallta varlaa vacas con al alaao 'y' . daspuAa ateapre aa ob- 
tlana la alaaa sacuoncla da niiaaroa al azar. Al coalanto da cada 
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•Jftcucldn tel pro(raB* m InlelKllsa «1 genarador te otearoa al 
azar con un niiaaro alagldo *al azar*. For lo tan to, al no aa uaa 
RAKDOKIZE aa obtlanan daapuAa te cate lAlelallaaelta tel 
prograaa otroa nteeroa al azar coo RHD.RANDOH o RAND. 

Para la lAlclallzaclte tel ganerador te nteeroa al azar aa puada 
uaar RANDOMIZE taabldn aln parteetroa o RANDOMIZEO. 

BJaaploa 

a>RND 

PRINT x,RND(2) 

••> En al Bonltor aparacan doa nteeroa al azar antra 0 y 1. 


»RAND0H(2) 

yRAND(«) 

PRINT x.y.RAND(x).RANDCN(3*x| 

--> Cn la pantalla aparacan cuatro ntearoa al azar antaroa. 

RANDOMIZE 3 
X'RND 

RANDOMIZE 3 
PRINT x.RNO 

— > Sa vlauallza doa vacaa al alsao *nteare al azar*. 
Arttadtlea da aataroa 


Cooasdoa j fiiaclOBaa 

DEC. INC 

A00.SU8.MirL.0IV 

PREDO.SUCCO 

AD0( ) .SUB( ) ,MUL( ) ,0IV( ) ,N00( ) 
DEC. INC 

A0D.SU8.WL.0IV 


Eatoa coaandoa aqulvalan a la forsa abravlate da aacrlbir laa 
algulantaa axpraalonaa: 


DEC X aqulvala a x«x>l 
INC X aqulvala a x«x*l 
ADO x.y aqulvala a x>x*y 

SUB x.y aqulvala a x>x*y 
MUL x.y aqulvala a x>x*y 
DIV x.y aqulvala a x»x/y 


Laa axpraalonaa qua flguran a la Izqulerda raqularen audio ada 
tlaMpa para au aiacucldn qmia laa axpraalonaa qua flguran a la 
daracha. Eata dlfaranela aa auy aarcate an varlablaa antaraa. 


Ex laportanta aabar qua INC. DSC, ADO. SUB. MUL y OIV no raallzan una 
pruaba te daabordaadanto en al caao te varlablaa antaraa (E.&.lh 


DECl 
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INCl 


1: BV4T 

Lo« cosando* DSC e IK alrvan par* aodlflear un valor por uno.OEC 
dXaalnuye al valor da la variabla nuaarlca 1 por uno, alancraa 
qua INC Incraaaota al valor da i por uno. 

Batoa cosandoi trabajan con varlablaa da punco flocanta. aln aa- 
barfo aon aucho aAs valocaa con varlablaa encaraa. 

SJaaploB 

xj>4 
y*«7 
DEC xX 
INC y* 

PUNT xE.yJ 

•*•> Bn la pantalla aparacaa loa ndaaroa 3 y &• 

*1-255 

INC a] 

INC a| 

PRINT a| 

•*> Da IM. ya qua no hay pruaba da arror. 

ADOa.y 

SUBx.y 

HVU.y 

DIVx.y 

x: avar 

yj aaxp 


El eoaando ADD incraaanta una variabla x por al valor y, alancraa 
qua SUS dlaalouya a x por al valor y. MUL aulclpllca x con y y 
aalgna al raaulcado a x. OlV dlvlda la variabla x por y, dejando 
al raaulcado an x. 

En aacoa conaodoa x deba sar «aia variabla nuabrlca. alancraa qua 
y aa una axpraalte ounArlca. 

Eacoa c o aa n do a trabajan coo varlablaa da pun to flotanca, tin ea- 
barfo aco aarcadaaanta aAa valocaa con varlablaa antaraa. 

BJaaplo 

xi«l 

yt»2 

x*-3 

ADD xX.jt tx ahora aa Ifual a 3 

SUB (X,(xE*l )/2 (la axpraaldn Duabrlca (xS-lJ/2 da 1 

PRINT tX.yX 

En la pantalla aa vlauallzan loa niiaaroa 3 y 2. 

PRSDO.SUCCd 
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ADD ( ) , SUB O . KUL ( ) . DIV { ) . NOD { ) 

PRED y SUCC dsn el slgulente nCieero eAs grande y el slgulente 
nd»ro bAs pequefio. ADD(),SUB().MUL().OIV() y MOD{) ofrecen une 
rApida srltMAcice de entero* con noucldn poises. 

Escss dos expreclones pueden ler ussdsa con expresines string 
(vease spsrtsdo sobre sdeinistrscldn de csdenss da esrseteres) 

EJeeplo 

lJ-6 

jj.pREDUJ) 

PRIKT J)(.5UCC{2).PRB>(3*it) 

--> Bn la psntslls apsrecen los vslores 5. 3 y I?* 

ADD(x.y) 

SUB(x.y) 

NUL(x.y) 

DlV(x.y) 

HOD(x.y) 

x.y; lexp 

Estes Pimclmes te pueden eeplear en lugsr de slgunos opersdoces 
nusArlcos: 


ADD(x.y) 

equivala a 

x*y 


SUB(x.y) 

equlvale a 

x-y 


NUUx.y) 

equivala a 

x*y 


DlV(x.y) 

equlvale a 

x\y X 

OlV y 

HOD(x.y) 

equlvale a 

X HOD y 


Ya que 

las funeiones 

eenclonadss 

sntarlonente trabajan con 


sritaAtlcs de enteros. se Ignoran los lugsres decrAs de la cobs. 
De scuerdo con las inscrucclones 

xJ-5 

yj-'i 

ADDyX.3 

sJ*SUB(xI.3) 

xX tlene el valor 5. yX tlene el valor 7 y iX tlene el valor 2. 

L«s funeiones ADD. SUB, NUL, DIV y HOD se pueden ancasillar 0 
agrupsr de cualquier foeva. Bsta secuencla de operedoras y 
opersndos se Uses notacldn polaca. 

EJeeplos 

DEFINT 'a*** 
x»4 

y*ADD(x,x) ly Bird glelcb 6 
{•StJB(x.2) 

PRUrr y,z.AD0(x,KUL(y.2)) 


••> Bn la pantalla apsrecen los nueeros 8.2 y 20. 
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DEFIKT ’a-*’ 
x*2 

y*HUL(B,3) ly ea ifual a 6 

PRINT y.DIV(d.>).MOD(ll.>>) IM0D(11.4) es Ifual a 3 

— > En la pantalla tparacefl loa nuaeroa 6,4 y 3- 

DEPINT "a-i* 

«"5 

yADD(SUB(«. 2) .1011.(3.4) > 

PRINT y.DlV(6.M0D(li),<l)) 

--> la pancalla aparacen loa niiaaroa IS y 4. 

Oparaclonaa d« blta 

BCUt.BSCr.BTST.BCHO 

SHL.SHR.ROL.ROR 

AND( ) ,(»< } .XORO .IMPO .BOVO 

SWAPO 

evno.cAiuo.NORoo 

Laa oparaclonaa da blta Inriuyan aobca azpraalonaa ntaOrleaa a 
nival da bit. Loa cooandot (cotkocldoa para loa procraaadoraa da 
Aaaaablar) BCLR.BSST.BIST y BCHO borran.flJan.Miallxaa y nlafan 
blta. SHL.SUR.ROL y RCfl deaplaxan o rotan blta. 

Laa funclonaa AND.OR.XOR, IKP y BQV aoo conaxlonaa Idflcaa. En 
aata caao vala la alfulanta foraa da eontar: 0 aa al bit da aanor 
valor; an variablaa antaraa da 4 byta aa 31 al bit da aayor valor 
y al alaao tlaapo al bit dal alfno (al aa fljd al bit d^ aipw. 
aa rapraaanta al nijaaro nafatlvo an al eoaplaaanto da doa, alno 
aa un ndaaro poaltlvo). 

SWAP Intareaabla laa doa palabraa da un valor da 4 byta. BYTE laa 
loa 8 blta Infarloraa y CARO loa 16 blta Infarioraa da una 
axpr«al6n antara. WORD aaplia una palabra a palabra lar(B. 0 aaa 
al bit IS aa copla an bit I6 baata bit 31. 

BCLR(x.y) 

BSSr(x.y) 

BCHQ(a.y) 

BTST(a.y) 

x,y: laxp 

Bacoa coaandoa paralcan borrar, fijar, nagar y anallaar un bit. 
Bn aata eaao al racuanto da loa blta conlanaa an earn. B1 ndaaro 
dal bit aa halla dentro dal range 0 a 31 P aa anaaacara Intar- 
naaanta an al procaaador con AND31. 

El bit no. y da la aapraaldo ouadrlca a aa Iguala a caro coo la 
funcldn BCLB. Bn foraa andloga, al nuaaro da bit y da a aa Iguala 
a uno con BSST.Cao BCHO al bit y da a aa Iguala a «aw, al ao- 
tarloraanta era caro o aa Iguala a caro, al antarloraanta ara 
uno. La funcldn BIST da -l(TIUIS), cuando al bit y da a an Igual a 
1 y O(FALSB), cuai^ aata bit aa igual a caro. 


pAglna 62 



CFA BASIC 3.0 


nmClONES HUMERICAS 


EJeapIos 

>cSSCT(0.3) 

PRINT x.BSET(0.5) 

En el Bonltor se viiuallxeo loe nueeros 6(2*3) y 32(2*5) • 


REPEAT 

t|-Inp(2J 

PRIIfT CHRS(t|).CHRS(BCUI(e|.5)) 

UWTIL CHR*(t|)«"x" 

•-> Pulsando une cecla de letras aparace la letra y la 

correspondlanca mayuacula (an alnuaculaa slaapre ae fljan 5 
bit y el borrado da eaca bit exlge la converatdn en una 
aaydacula) . 

sS^'Pelabra* 

POR 1X*1 TO iJV(eS) 

PRINT CKRS{BCH0(ASC(NIM(aS.lX)).5)): 

NEXT IS 

— > En la pantalla ae viauallxa *pALABRA* , o aea convlarta cada 
alndacula en aayUacula y vtceveraa. Sin esbargo. aato no 
vale para dldreala. 


SHL(x.y) 

SKU(x.y) 

SUU(x.y) 

SHR(x.y) 

SKR(x.y) 

SHRl(x.y) 

ROL(x.y) 

ROLX(x.y) 

MLI(x.y) 

ROR(x.y) 

• 

MM(x.r) 

RQ<U(x.y) 

x,y; lexp 




Eaeaa Inatrucclonea daaplaxan(Shlft) o rocan(Rotata) por y bit el 
eontanldo de una expraalda miadrlca x . Cuando no ae Indloa un 
tlpo de variable eapeclal ocurre dato an la lonfltud da palabra 
large (4 bytea), cuando aa Indlca ocurre en longltud de 
palabra (2 bytaa) y cuando ae Indlca '1' en la longltud da un 
byte. La tercera letra del noabre da la funcldn indlca la 
dlrecclOn dal deaplaxaalento o de la rotacldn. Bn aata caao 'L' 
algnirica Izqulerda (left) y 'R' algnlflca darecha (right). 

Bn laa funclonaa Word (1) ae copla a eontlnuacldn el bit 15 an 
loa blta 16 a 31, y an lea funclonea de byte (I) aa borran loa 
blta 8 a 31. 


Loa alguientaa eje^loa auadrlcoa auaatran al araeto da loa coa- 
andoa Shift. 


xX SKU(x.l) 
18 36 

642 4 


BIN<(xS.l6) 
00000000 00010010 
00000010 10000010 


8INS(SHL1 (xS. 1).16) 

00000000 00100100 
00000000 00000100 


xX SKU(xX.l) 
18 36 

130 4 


BIHS(xX. 16) 
00000000 00010010 
00000000 10000010 


BINS(»1 U{xX. 1).16) 
00000000 00100100 
00000001 00000100 


xX SKR&(xX,2) BlN(xX.l6) BlNS(SHRI.{xX.2) .16) 

ai) 6 00000000 00011000 00000000 00000110 
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4162 1040 OOOIOOOO 01000010 00000100 00010000 

(Lo* bits ss sfrupsron on grupos ds ocho solaasnts psrs qus s« 
coapranda con uyor fscllldad. BINS no agrups) . 

Los algulentss sjeaploa nuaArlcos ss rslsclonan coo los coModns 
ds rocseido. Aqul los bits qua sbsndonsn Is corrsspoodlsnte zoos 
da mlaaros sa vuslvao a Introduclr an si Isdo opuasto. 

Sa flja por aj. solo al aayor bit da un byta. Gata byta sa rota 
antoncss hacia la Izqulerda por un bit {R^(128,l)). El bit 
dasplazado por la izqularda sa vuelva a Introdxiclr por la 
dsracha, da tal aanars qua quads fljado al prlaar bit dal rasul* 
tado da la funeldo. Coo SHLlllGS.l) al bit fijado qua ss 
dasplazd hacia afuart antoncss sarla igual a earn. 


Otros ajai^los nuadrleoa sarlan: 


xX 

MU(x.l) 

BIMt(Kl.S) 

BINt(R0Ll(xl.l),6) 

6 

12 

00000110 

OOOOllOO 

130 

5 

10000010 

00000101 

xl 

R0RI(xl,3) 

BINS(xI.S) 

B1HS(ROR1(kI,3).9) 

66 

144 

01000010 

00000000 

2 

64 

00000010 

01000000 


EJaaplo 

x|>l2S»l triJaBlt7y0 

x|aR0R|(x|,l) ty as igual a 192 

PftDfT SKUy».4).y*»2*4 
PRUfT SHUR0fl|U2B*l.l).4) 

•-> Bn al aonltor aparncs tres vacas si niiaero 3072. La 
axprasldn a*2*b aqulvala a la funclOn SHL(a.b), slaapra 
no sa dasplaca nlngvln bit sobca la zona da valldas ds 4 
bytas. La fonulacldn. qua usa la fuocldn da bit as 
•* — T~*t sis valoz. 

AND{x.y) 

OR(x.y) 

XOR(x.y) 

Wr(x.y) 

EQV(x.y) 

x.y: laxp 

Estss funclonas son conaxlonas Idglcas ds dos axpraslonas 
nuadrlcas. En al resultado ds AND solo sa fljao bits, qua sa ban 
fljado tanto an x eoao an y. El rasultado da la funcldn ds OR 
contlana bits an los lugaras, an los cualsa ss fljaron bits an s 
o an y o on aabas axpraslonas. XOR solo fija bits, qua so han 
fljado an X o an y paro no an a a y slaultAnasaanta. Dlcho eon 
otraa palabras: XOR flJa bits, qua tlonao dlstlntos valoraa an s 
y on y. 

IMP solo aalgna caro a bits, euando sa fljd al corrospondlanta 
bit on X y no an y. on los dasAs easos so flja al bit an al 
result^o do la funcidn. EQV flja un bit an al rasultado da la 
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funclte, cuando loa correspondlentsa biu an x a y tlanw loa 
•Isaoi valoraa. Para la lluatraclte da aata coaando obaacva 
taablta lax tablas da valoraa da verdad an al apartado aobra 
oparadoraa Idglcoa. 


BJeaploa 

x-3 

y2 

z«AN0(x,y) tz at Isual a 2 
PRIIfr Oft(2.7).XOft(x.l*4*8) 

--> En la pancalla aa viauallzan loa ndaaroa 7 y 14. 

PRINT B1NS(15,4),15 
PRINT B1NS<6.4},6 

PRINT BINS(IKP(19.6).4).*1MP(15.6)‘' 

PRINT BlNS<EQV(15.6).4),*EaV(15.6}* 

•-> En la pantalla aparace: 


1100 

15 

0101 

6 

0111 

IMPU5.6) 

0110 

EQV(15.6) 

SWAP(x) 


x: laxp 



La funcldn SWAP intarpraca la axpraaldn nuatrlca x coao palabra 
larga {4 bytaa) a Intarcaabla su palabra auparlor a Inferior 
(cada vaz 2 byta). Eaca funcldn no tlana ntda qua vat con al coa- 
ando dal QPA-BASIC dal alaao nosbra y aa uaa para dlfarantea 
finaa( por aj. para tranafarlr a una rutlna dal alataaa do 
trabajo un pariaatro da palabra larga an foraa da dot palabraa 0 
para tratar loa pointer con una tacuancla da palabraa 
Intarcaablada) . 

BJaaplo 

x>1044480 
PRINT 6INS(x.32) 
y«SUAP(x) 

PRINT BINS<y,32) 

--> En al aonicor aparace: 

CKUOOOOOOOOOl I It 1 1 11000C)0000CX)00 
llllOOOOOOOOOOOOOOOOOOOOOOCOllll 

Un tlpleo ajaaplo para aua uao aa: 

-wiKD_ssr(o.i3.swAp(txi .tj.0.0) 


Bm(x) 

CARC(x) 

WORD(x) 
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Bnc ratoma loa 8 blta Infarloras da la axprasldn ouadrica x. 
CARD laa an foraa aquivalanta lea l6 bits Infsrloras da x. WORD 
aaplla una palabra a la loofltud da palabra larga ( o aaa al bit 
IS sa copla an bit l6 a 31) • 

EJeaplo 

PRIOT BVTE(l*2Sl|),BYTB(l*2S5) 

PRlNr KEXS|CARD(Uil234ASCD)) 

--> En la pantalla aa lapriaa 2S5>0 y ABCD. 
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5 AdalnlstraclBa d« Im emdaaaa d* e*r*etar«« 

LSTS.RlOfTS 
NlD$[coao functdn) 

PRED.SUCC 

IJM 

INSrR.RlNSn 
STRINC3. SPACES .SPC 
UPPQtS 

L5CT.RSer.MUS(eoM eoMndo) 

Los coasndos LEFTS y RIGHTS rstornan la porcldn isqularda o darachs da 
uns csdana da caractaraa. SI MIDS aa uaa coao funeldn. puade ratomar 
porcionas qiia tparaean an al aadlo da un serins. SI RIBS la uaa coao 
coaando . ta puada inaarcar con *1 un atrlns danero da otro scrlng. 
PHED y SUCC ra toman al carAetar eon al alsulanca valor da AXll aanor 
0 taspaecivaaanta aayor qua Al da la axprasldn da atrlns Indleado. 

LEN dataralna la lonfltud da una eadana do caractaraa. INSTR y fUKSTH 
buacan la prlaar ocurranela da un serins dantro da otro serins / 
raspondarA con la poaicido donds sa halla la coincidancla. 
STRINGS, SPACES y SPC slrvan para produclr cadanaa da caracearaa, qua 
concianan ropatldaaanta la aiaaa Axprasldn atrlns'. UPPER convierca 
codoa loa alaboloa da un acrins an aayGaculaa. La Inaarcldn da un 
serins a la laqularda y a la daracha da otro as Hava a cabo con LSET 
y RSET. 

LEm(aSC.x]] 

Riam(aS(.x]) 

aS: saxp 

x: loxp 

LEFTS dovualva loa prloaroa caracearaa da x da la eadana do caractaraa 
aS. Si x at aayor qua la cantidad da caractaraa an aS. aneoncaa aa 
raeoma eodo aS. Sin la indlcaeidn da x, adlo aa raporta al prlaar 
carActar dal aertns aS. En foraa anAlosa. RlOfTS raporta solo loa 
dltlaos caractaraa da aS. Sin la indlcaeidn da x sa dataralna al 
dltiao carActar da aS. 

Bjaaploa 

aS>*Hanuai para GFA-BASIC* 
bS'LEFTSCaFA-Syacaacachnlk’.A) 

PRINT bS;RiaHrS(aS,5l 

— > En la psntalla aa lapriaa la palabra 'GPA'BASIC. 
aS**0beriiauaon* 

bS ‘LEFTS ( aS) •niGHTS ( *Tachnik* ) 

PRINT bS 

—> Bn la panealla aparaco ok'. 

KlDS(aS.x[,y]}(caao Tuncldn) 

aS: aaxp 
x.y: laxp 
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La funclAn HIDS devuslv* •! carActer 'y‘ a partlr da la poalctdn x dal 
atrlnc aS. Cuando x aa aayor qua la locifltud da aS, ta produclrA una 
cadana da caraccaraa aula. Si ta auprlaa y, antoncaa aa cauma toda 
la porclOn dal atriisf a partlr dal carActar y. 

BJeaplo 

aS«'Manual para OPA-BASIC* 
b$«HIOS(aS.13.9)«HIOS(*Var8ldn 3.0*. 8) 

PRIIfr bS 

"> En la pantalla aparaca al taxto '0PA-BAS1C3.0' . 

PRED(U) 

SUCC(aS) 

at : aaxp 

PftED davualva al carActar dal valor da ASCII dlaalouido an uno da la 
'axpraaldn atrlnf' a tranafarlr.Bn aaca caao aolo aa avalda al priawr 
carActar da una cadana da caractaraa. En foraa anAlofa, SUCC davualva 
al valor auaantado an uno. Bo aata caao PRBl(aS) aquivala a la 
axpraaite OOlS(PllSD(ASC(aS))) y SUCC(aS) a CNBS(SUCC(ASC(aS))). 

Do aataa doa funelonai taablAn aa diapona para axpraaionoa anteraa( 
var apartado da arltaAtlca da antaroa). 

EJaaplo 

caractarta’B* 
an tarlorS'PRED ( carac tarS ) 
poa tarlort aSUCC ( caracurS ) 

PfUKT antarlorl.caractarl.poatarlorS 

”> En la pantalla aparacon lat latraa A.B y C. 

LEMiaS) 

'ntutt(a) 

aS: aaxp 

LEN caleula, cuAntoa caractaraa aatAn contanldoa an at y ratoma al 
niiaaro. 

IDINS allaina aapacloa an bianco an al aAr(an ixquiardo y daracho dal 
•trina. 

EJeaploa 

at>*Pruaba* 
x«LS((U|>l 
PRIWT x.L»Ct(orf ) 

Bo la pantalla ^taracan loa niiaaroa 7 y 8. 

b$«* pruaba * 

PRIOT L£H(bS) 

PRIKT nUHSibt) 

PRIKT LE>l{'ntlJ($(bS)} 
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— > Sa vlauallza 12, •! acrlnc 'Prueb*' ain eapaeloa ea bianco y 6. 

INSTR(aS.bS) 

INS7H(at.b«.[x]) 

Deni(Cx].a.bs) 

aS.bS: aaxp 

»: lexp 

La fuaclOn IKSTR buaca la prlaar ocurrancla dal atrlnc aS dantro dal 
atrlng bS, da tal aanara qua aa tnlcla la bdsqueda an aS a partly dal 
cartctar «. alno la bdaquada coalanza an al prlaar cardetar. 
Reapondard con la poalcldn. a partly da la cual bt aatd contanldo an 
at. SI no aa hall6 bS, INSTR aa Igual a caro. SI aS y bS aon acrlnga 
nuloa. IKSTO aa Igual a uno. 

Ejaaplo 

aSa'CFA-Syataatacnnlk* 

x«lNSTR(aS,*Syataa*) 

PMwr x.U«TR(*QPA-BASIC*.*BASIC*.6) 

En la pantalla aparacan loa ndaaroa 3 3 / 

UNSTR(aS.bS) 

RIKSTR(at.bS.[x]| 

UllSTR((xi.aS.bS) 

aS,bS: aaxp 

x; laxp 

RlNSniO llava a eabo una buaquada igual qua INSTR, pare coaanzando al 
final la cadana da caractaraa. 

Ejaaplo 

PRINT RINSTR("A:\ORDKER\*.aPA',*\*) 

— > Buaca la lUciaa bam Invarcida'X' an al noabra Pfad y ratoma la 
poalcldn dal cardctar buacado( an aata caao 10) . 

STHUIOt(x.aS) 

STRINOS(x.coda) 

SPACES(x) 

SPC(x) 


x.coda: laxp 
at: aaxp 

La funcldn STRINOS produca ui atrlng. qua contlana la axpraaldn 
Bering 'at' o al cddlgo dal valor da AKII, raproducldo x vacaa ( 
antra 0 y 32767). Con la lodleaeldn 'coda' aa apllca CHRS(coda). 

SPACES produca un atrlng qua contlana x aapacloa an bianco. SPC 
produce an un cooando PRINT x aapacloa en bianco. A dlfarancla da 
SPACES, SPC no puada produclr un atrlng, qua aa pudlara aaignar a una 
variable por aa^o da \8) algno Igual. 
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BJaaplo 

•s•'apA • 

bS«SPACES(5) 

PRINT bl;SntDICS(3.U):SPC(<l)iSn<l)<Ct(5.*<*) 

— > Bn 1ft pantallft ftpftr«ca ‘ CFA GFA GFA «<«'. 

UPPER(ftS) 

■S: ftftxp 

Convlftrtft todftft IftCrftft ftlnuftculftft d« un« cadana da caractaraa an 
latraa ftayuftculas. Eato (aablta funclona coo dlAraalc. 

Ejaaplo 

aS«'Pftlabrft* 

bS*UPPBtS(aS)«UPPSUC da'*’ prueba*) 

PRINT bS;lS>PBtS<* Qfa-Baale 3 .O’) 

— > En la paatalla ta vlauallxa 

■PALABRA DB PRITEBA GFA-BAS1C3.0' . 

LSBTaS«bS 

RSBTaS*bt 

Km(aS,ii[,y]) (eoao coaando) 

aS: avar 

bt: aaxp 

x.y: laxp 

LSET y REETT Ijtaartan la axpraaldn atrln^ bS haeift la izqularda {1£ET) 
a blan hacla la daracbft (RSCT) da la varlabla da atrlnca aS y coaplaea 
avancualaaata con aapacloa an bianco. 

MISS aaplaado eoao coaa n do poalbillta la Inaarcldn da una axpraaldn 
acrlnc an al aadlo da una varlabla do atrlnya. Aal an al caao da 

IUM(a.x.y)<bl 

aa inaartarla la axpraaldo dal atrlnf bS a partlr dal carActar x an la 
varlabla aS. El parAaatro optional y ftja cuAntoa caractaraa da bS aa 
ban da Inaartar coao aditiao an aS. SI aa aupriaa y. aa tranaflaran a 
at todoa loa caractaraa poaiblaa. Con RIDS no aa aodlflca la lon^ttud 
da at, also qua loa caractaraa proveolantaa da bt tranacrlbao partaa 
da at. Cuaodo d aa daaaaiado eorto coao para abaorbar todo al bt, an- 
toocaa aa Istarruapa la Inaarcldn. 

BJaaploa 

at-’ 

PGR lX -1 TO 128 t coluanaa Izqulardaa 
LSET aS-SIWdS) 

PRINT at; 

NscT a 

PRINT 

FOR lt-1 TO 128 

RSET at-SIRS(lI) I coluanaa darechaa 
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PRINT aS; I d« nuaeros 

NEXT iX 
-IHP(2) 

— > Retoma coluanas da niiaeroa foraateadaa a la Izquierda y a la 
derecha. En lugar da RSETaS«STRS(iX) taabian aa puede uaar 
aS>STRS(lX.5.0). 

at*"GF ASIC" 

MIDt(aS.3)*"A-B" 
b$>"Palabra * 

MID$(bS.7.2)>*onda* 

PRiirr a.bt 

— > Sa vlsuallian laa palabraa 'OPA^BASIC y 'Palabroi'. 
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6 ■ lacreso da dates a travds dal taclado 

7 aallda da datoa a travda da la paatalla 

Ed aata eapltulo aa prasanean las poslbllldadas bdalcas da Ingrato y 
da sallda da daeoa. Bn prlasr lucar aa axpllca al rol da INKEVS, qua 
airva para coaprobar al aa actlvd alfuna tacla del taclado. Luago se 
aollclCa una variable aedlanta INPUT y las Inatrucclonaa eaparantadaa 
LIKE INPUT. FORM INPUT y roftH INPUT AS. 

El anAllsla da laa poalbllidadaa da sallda da datoa coaianaa con la 
Instruccldn aia alapla, cod PRINT. A contlnuacldn aa tratan sus var- 
alonea asplladaa (PRINT AT. PRINT USING) . Luago aa habla da las in* 
atrucelcnaa qua sollcltan (CRSC(&.CRSLIN.POS) » dataralnan la poslcldn 
dal cursor (TAB.OTAB.VTAB) . 

Al rioal da aata apartado sa prsaantan loa coaandoi KSViiw. Con ayuda 
do aataa nuavaa inatrucclonaa aa poalbla una aanipulacldn sanellla da 
las funclonaa dapandlantaa dal taclado durance la ajacucldn dal 
prograBS. 

IMUYS 

XNKEVt loa un carActar dal taclado. Sin oabargo aata funcldn no tlana 
la capacldad da eoaprobar al aa accivaron laa taclaa da conautacldn 
dal taclado(Shlft.Altamaca.Control.CapaLoc k ) . INKEVS no aapara qua aa 
pulse una tacla sine qxaa raporca un string nule.sl no sa pulsd nlnguna 
tacla dasda la Ultlaa vaa quo sa quiso co^robar qua habla side ac* 
tlvado al taclado. Da lo contrarlo la funclte raporca al alabolo da 
ASCII da la tacla praalonada. Si la tacla pulsada no tlana cddlgo 

ASCII, coao por aj. laa taclaa da funcldn 0 las taclaa Help o Undo, aa 
obtlana al cddlgo Scan da la tacla pulsada. b osta case sa racoma un 
string da doa caractaraa da longicud. qua contlana al cddlgo CMRS(O) 
an al prlaar cartctar y la corraspondlanta earactarlsaeidn do las 
tsela aspaclal an al sagundo cardctar. El slgulsnta ojsaplo Iluacra 
cdao aa obtlanan valoras con INKEVS. 

EJaeplo 

DO 

tS'INXEVS 
IP tS<>” 

IP LEN(tS)al 

PRINT *ASCII>Coda: *;ASC(tS) ,'Codigo ASCII: *:U 
ELSE 

PRINT 'CHRS(O). Scan-Coda; *;CVI(tSI 
ENDIP 
Q4D1F 
LOOP 

"> En cada tacla pulsada indlea au cddlgo ASCII o Scan. Heca: CVl(tS) 
aqulvala aqul a ASC{Riafn{tS)] . ya qua ASC(tS)>0. 

IMPUTl ■ taat' , ]sC .7. • • • 1 
I«PVT(>tasft]sC.7.-.-] 

s.yi avar o svar 

La inacruceldn INPUT sa puada oi^laar tn varias varlaclcoas. Sliva 
para ingrasar variables o liataa da variablaa con o aln aj^llcacionas 
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prelialn«r«s(’text*). INPUT tleBpra *• reflare a 1 a lUtlM poslclte 
del cursor. Con ayuda da PRINT AT, saguldo da un saaleolon 0 LO* 
CATE , VTAB , ifTAB sa puade ublcar al cursor para fljar la poslcldo da In* 
greao. 

Cuando a la palabra INPUT la aueade un taxto, sa lo pueda separar da 
las slgulancas variables por una coaa o un sa^colon. Cuando sa aeplaa 
un saalcolon, sa SEraca a la dascrlpcldn tin slgno da Intarrofscldn y 
un aspsclo an bianco y al cursor sa poalclona datrds da alio. Cuando 
sa aeplaa una com. al cursor sa poslelona direct seen ta dacris dal 
lUcieo carAccar da la dascrlpcldn. 

Cuando no fifura nlnfdn taxto datris da INPUT, apareca an eada easo un 
slgno da Incarrogacldn, saguldo da un aspaelo an bianco, datris dal 
cual ascd al cursor. 

SI solo IS sollclca una dnlca variable, sa daba cooflrear su Ingreso 
pulsando las caclaa Datum 0 Enter. Cua:^ sa sollcltan varlas 
variables con una Inatruccldn INPUT, antoncas sa puada conflmar cada 
variable pulsando Datum o fotar, pare las variables taeblAn as puadan 
separar con una com y ta puato Ingrasar pulsando una dniea vaz la 
tacla Datum o Enter. SI sa qularan Ingresar coeas an un string 
aadlanta la Inatruccldn INPUT, sa daba Mplaar al eoModo LINE INPUT. 

SI ta asparaba una varlabla nuedrlca y sa Ingresd un taxto, suana una 
tsAal da arror, y al ingreso ss daba Inlelar nuavaaanta. Hasta la 
pulsacldn do la tacla Datum 0 Enter sa puadan borrar caractares 
dantro dal taxto a ingresar con las taclas Backspace 0 Delate ; las 
taclas Izqularda y daraeba dal cursor taablta son actlvas. Pulsando la 
tacla Insert so pueda conautar antra al eodo Insarcldn y noreal. La 
longltud da Ingreso adxlaa vale 259 caractares. 

Caractarea aapaclalaa as puaden Ingresar da tree forsaa dlfsrantasi 

- Pulsando <Altamata> y lot nissaros dal bloqua nuedrlco, por aj.: 
Preslonando la tacla Alternate pulsar al nilaaro 64 an al bloqua da 
^•nas. Cuando sa daja da pulsar la tacla Altamata aparecart I. 
Bsto taablta vale pars INXEYS, INP(2). dlAlogos <BK, ate. an la 
aadlda an qua no sa dasconacta con KETPAO. 

- Ingresando <ControlXS> y otro al^lo, por sj. :<Concrol><SXc> 
para al alabolo Pi. 

Ingresando <ControlXA> y al slgulanta cddlgo ASCII dal cartatar 
dasaado, dapandlsndo da KEYPAD, coeparar alll por aj.: 
<ControlXA><2><7> para al slabolo Bseapa. 

EJaaplo 

INPUT aS 
INPUT “.bS 

INPUT *0os ndaaros por favor: *;x,y 
PRINT tS.bl.x.y 

"> Lae dos strings y dos vsrlsblas niaSrlcas. El prlMr cosundo 
INPUT producB un 'T' , si sagundo no produce taxto y al tarcaro 
pida 'Dos ndasros por fsvor:?'. 
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LIWS UfPOT[*tMf,3M[.b*...] 

LIMB lKPOT[*to>t*:]a[,b$...] 

•S.bSi ivMT 

LIMB INPVT u uoa v4rl«At« d* 1 m InstruccldD IWITT. A dlf«r«ncla da 
INPUT. to MM CAM t pOMibl* InCTMAT COMM UOM vATlabl* atrliiM. 
L«a descrlpctooM pr«vlaa, «1 1 b(t«mo da v«rl«blM o da una llaca da 
varlablaa, la eorraeite dal lafraao baata qua aa pulaa la tacla Aaturn 
o bitar y otcaa poatblUdadaa da varlacldn aa aaaajao igual qua ao 
IMPUT. aunqua aolo aa poatbla c«a varlablaa atrlnc. 

BJaaplo 

UKB INPirr aS 
INPUT bS 
pfturr at.bt 

**> Por favor, lafraaa doa vacaa al taxco 'Koa.aa'. Luaco aparaea 
'Koa.aa'y 'Xoa' an al aaolcor, coaparar caablAo con LINB INPtrra. 


PORN IMPCTTA.aS 
PORN INPUT, ISaS 

n: laxp 

all avar 

FORM INPUT y PDAH INPUT AS airvan aaboa para Incraaar varlablaa 
atrlnc. Bn aata eaao Indlca n, cuAataa earactaraa puada tanar coao 
aAwlan al acrlnc aS (ncra 1 y 2$3). 

PORK INPUT AS ratama adaaii al valor actual da aS. qua ao puada 
•dltar antmcaa. Laa poalbllldadaa da odleldn da aabaa Inatrucclonaa 
aon laa alaaaa qua laa do la laacrucclte INPUT. 

BJaaplo 

FORM INPUT lO.aS 
bl>*Pruaba’ 

PORN INPUT 5 AS bS 
PRINT U.bt 

— > Sollclta doa atrlAca. Cuando aa aoUclta al aagundo atrlnc aa 
vtauallaa la palabra 'Pruaba' coao valor a odltar da bl. 


PRINT 

PRINT aapraalda 

PR INT AT(colaaM,UMa) iaapraalda 

HRXTRaapraatda 

LOCATRIlaaa.eolaaaa 

aapraalda: eualquiar aaap o aa:^ o eoablnaclda da alloa 
coluooa.llaaa: I 0 J 9 

La Instruccldo PRQfT ala otroa pardaacroa baca q^ aa avance a la 
alfulanca llaaa. 31 al cursor ya so aocuoDCra an la liltiaa llnaa, toda 
la pantalla aa daaplaca im lloaa aAa arrlba. PRINT aafuldo da uoa 
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•xpreildn produca 1» tAlid« «st* «cpr«sldD m !• potlcldn MtuAl 
tel cursor. Lu cateoM te emraccaraa m tebsa «Dcarr«r an eoalllM. 
Cuando la axprealte qua data aalir aatl eoafuaata te varloa alaaantoa 
(coaatancaa.varlablaa o axpraalonaa) , aa puaten aaparar laa partaa 
Indlvldualaa con aaalcolco, com o apteuofa. 

Cuante ta aoplaa la com aa ubiea al cursor tetria te la alfulanta 
poslelte te coluana dlvlalbla por I6. Cuaote aa alcanaa la CltlM 
eoluna, aa auava al cursor a la coIubm 17 te la alfulanta llnaa. 
Cxiante aa aaplaa al aaaleolon aa preduea la sallte te loa 
eorraapcndlantas alSMntoa aln aapaclo an bianco. Cuando aa uaa al 
apdatrofa, aa Inaarta un aapaclo an bianco antra loa eortMpoodlantaa 
alaoantoa. 

PtUKT AT haea poalbla poalclonar la aaptMlte qua date aalir a partlr 
te una coluana y llnM tecaralnadaa. SafOn la praclaldn aa dlspcnan an 
sat# caao te basta 80 coluanaa y 25 Unaaa. H aaplao da vantanaa 
taabldn castrlAfa la xona te valoraa par* la ubleacldn tel cursor. 

Cuando la axpraaldn te aallda oo va l af ulda te un aaalcolon, aa ublea 
al cursor al eonlan r o te la 11km alfulanta. SI ya aa aneontraba an la 
dltlM llnaa, la paotalla aa dsaplaaa uu llnaa baela arrlba. 

Cuando aa Indlcan caractaras da control (cddlfos baata 3I) junto eon 
PRINT, tetoa aa procaaan a travte tel VT-52-finilator (var anaao) . 

Contrarlaaanta eon lo qua ocurr* con PRSfr AT, LOCATE solananta ublea 
al cursor an la poaleldn te lloM y coluana Indicate. La aallda te 
axpraslcnaa no as poalbla con LOCATE (eoavarar VTAB/HTA&) . 

La Inatruccldn MUTE slrva para alaacanar dates an arcblvoa 
aaeuanelalas para la lactura con DVOT. Daapute te la Inacniccldn 
MUTE rifuran ai^raalonaa nuadrlcaa y strlnf. laparadaa tfia te la otra 
con conas. 

Sn la aallda aa saparan las axpr*alonsa «itr* al eon comb; 
asprsalonaa atrlnf aa anelarran an conlllaa, Nota: Bata forMto aa 
Mpaclalaanta adacuado an la aallda aebra dlaeo par* volv*r a laar con 
INPUT. Datrds te la dltlM aapraaldn te ina inatiuecldn WRITE taabtdn 
puate flfurar un aanlcolon. antoncM aa raprlaa la aallda final te 
CR/LP. 

Bjaaploa 

•(•'OPA-SyatMtachnlk* 

PRINT Lartt(U.4)**8ASXC*'l*2; 

PUNT '.0*.*aFA-':UPPBRS(NIM(aS.5)) 

••> En la ptntalla aa vlsuallsa al tasto 'aPA-BASIC3.0' y 
'OPA> SVSTBfTBCKNIX'. 

PRINT AT(8,b):*Taato an la cuarta coltana, oetava llnM* 

••> Btclb* «n atrlitf «n la poaleldn b.S. 

LOCATE 8.4 

PRINT 'ta la oetava UnM. cuarta coliMia* 

— > Poalclona el cursor an la cuarta coltMia te la oetava llnaa y 
con al alfulanta PRDfT aa vlauallM un atrlnf an asta poaleldn. 
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HRITB t«I T*,3*4 

— > Produc* I* laprMldD 


PBUn DSXIIQforaatoS.uprMidBl;] 

Pim AT(liaM.coliM*){DSIMararMto$.Mprul6o(:] 
forMtoS: Mcp 

•iprMldn: cuaiquiar cantldad da aecp o aajcp aaparadaa coo eoaaa. 
coliMta.llnaa: laap 

PRINT USING y au varlaclM PRINT AT USING alrvan pan la aallda 
fonauada da datoa an al aooltor. Eataa loatrucclonaa tnbajan 
bAalcaMAta coao PRINT o PRINT AT. Sla aabarto. loa datoa da la 
axpnaldn qua daba — aa fonataan da acuardo con al contanldo da 
fonatoS. 

Pan fonataar aapnalooaa ctuadrlcaa axlatan loa atfutaotaa alaboloa: 

f Bapaeio para un ouaaro. SI aa al lUtlao nCmro da la 
lAatruceldn da fonato. sitaocaa aa r ado nd aa ao la aallda. 


canctaraa da f. 

Inaarta uaa coaa ao al comapcodlanta lufar antn loa earaccana 
da f y pcoduea aal um aaparaeido an loa dlfltoa da laa aliaalaaa. 

- B1 alfDO aaooa adlo daba flfurar ao al prlaar o aitlao lucmr dal 
acrloc da foroato. Baaarva uo lufar pan la aallda da ua aipto 
nofaclvo. caoblo. coo uo ai^ poaltlvo aala uo aapaclo ao 
bianco. 

• AoAlocaoaota al alfao aaooa, ao nuoacoa poalclvoa aa acraga ancaa 

o al al^ ada. No aa puadao cooblnar algnoa aia y oanoa. 

* Raavlaac da t, care ao alpiiricatlvoa aa naoplacan por aatarla* 
coo, an lugar da aapacloa ao bianco. 

S Produca la aallda da «at cardetar da t ancaa da lodlcar al nCaaro. 
al ri«un InoadlataMta antaa dal prlaar alabolo f. 

Slrva para conaccar al fornato axponanclal (E*000). Loa caractaraa 
da t dacanlnan an aata caao la lon^Cud da la aantlaa. Loa 
alaboloa * Indlcn la cantldad da dlgltoa para al aaponanta . la« 
clualva pan B* a B*. SI Tlguraa varioa f ancaa dal puneo fljo, 
aa alapta al aapocMota da cal aanan. qua aaa dlvlalbla por aaca 
caocidad. Pan m’Mama oagaclvoa daba pravaraa lodaracclblaaaoca 
uo alfDO. 

Concnrlaaaoca a la nnlCo 2.0 abon vala al prloclplo: Poraacao 
ancaa da aaacClCud. dUan daclr. qua euando bay daabordaolanto aolo 
aalao loa ndaaroa ao la cor na poodiaota tona. 

Para al Poraacao da cadaoaa da canctaraa aalatan loa algulaocaa 
alaboloa: 

4 Produca la Ivnaldo da coda la eadana da caractana. 
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I RaatFlxic* la lapraalAo al priaar carActar dal atrlas. 

\...\ Indlca cuAntoa earaetaraa da im atrlnc ( laeluaiva loa 
dot earaetaraa \) aa l^rialrAn. 

El aubrayada produca la tapraaldo dal alfuiaata carAcear da 
la Indlcacldp da foraaco. 

AdaaAa aa pealbla la lapraalAa laaltarada da toaareloaaa da taxto 
antra aataa lAdlcaclonas da foiaato. Laa varlablaa, liataa da 

varlablaa a axpraalenaa qua la tueadan al atrlng da foraaco aa aaparan 
coo eoaaa. 

Bjaoplo 

PItIMT USDH3 

PRIWr AT(A.A)s USDW I.Mf.PIS 

--> Sa vlsualiaao loa taxtoa '3.l4l6‘ y 'PI. ..3. 142'. 

FOR il*l TO 14 

PRINT USINO -If#.## .2-«j 

KSCT IS 

— > Sallda: 

l.OOE'OO 2.00e*00 4.00B*00 8.00B*00 16.00B*00 

32.00BO0 64.0OB*flO Ua.OOB^CO 2S6.00E«00 512.008*00 

1.028*03 2.058*03 4.108*03 8.198*03 16.3^*03 

Con NODE aa puadan locarcaablar eoaaa y puncoa. 

■ODBa 

Al iaxp 

Coo NODE aa puada alagtr antra la aotaeldn da puoto fljo y da puaeo 
flotanta y antra eoaa daclaal y puoto an allAalaDB. Con NODE aa 
aalacclona adaaAa al foraato da la rapr aa a n tacldn da la facha. Punto y 
eoaa valan para P RINT USINO y SntS(a.v.n) . 81 ajuata da la faeba vala 

para DATn.SRTXME.DATtt* y PILB. 

81 parAaacro n puada aaualr valoraa antra 0 y 3. Para alio raaultan 
loa ajuataa aafOn la alculanta tabla: 

ParAaatro o USING OATES 

NODE 0 #.#««.«# 16.05. 198S 

NOOB 1 t.Ut.H 05/16/1988 

HODS 2 f.fPf.ff 16.05.1988 

NODE 3 t.tttM 05/16/1988 

DBPinnte 

n: laxp 

DEnAM InfluanclB la aallda da mjaaroa a travAa da la Inatruccldn 
PRINT y auB varlancaa. Todaa laa aalldaa da nOaaroa. qua la aucadan a 
una Inatruccldn OEPNIM. aa ajacutan con n difltoa (lufaraa antaa y 
datrAa da la cona. al ptoito no aa euaota). La practaldo intama da 
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cAleulo no m aodlflca por mo. S* ftccad* «1 lucar por 

radondao. 


BJaaplo 

PRIMT 100/3 

OBFMUN 5 

PROrr 100/3 

— > b U pant*ll« aparMM lot ailMro* 33.333333333 P 33-333- 

CBSCOL 

CRSLIR 

POS(.) 

TAB(a) 

BTABcoIubm 

TTABllMa 


D.eoluaaa.UaM: Imp 

XI Mxp 

B1 frupo da Inauucclana* OtSCOL, OSLIN, POS y TAB alrva para 
•oUeltar y oblcar al curaor. CSRCOL Indlca la poalcldo da coluana 
actual r cSRLIN la poatclOn da llnaa actual dal cursor. PCS da al 
Ddaaro da caractaraa da aallda an al aonltor daada al lUtlao ratortM 
da Cairo icarrlaca Raturp) AND255- L* ai^raaldn x aa Ifnora. 

Sin aaba iio . al valor davualto por POS cto daba coincidlr con la 
poaiclda actual dal cursor. Si aa iMclaa por aj. una e^Ma da 
carsctaras con 120 caractaraa. al cursor flgura an la coliana 40. paro 
POS da 120. Eapacialaants an la aallda da caractarM da control dal 
curaor P05(0) tlana poco qua var con la coliMia m> qua aa sncuantrs al 
cursor, ya quo aolo aa cuantan loa caractarM. Bn MCa caao no aa 
prMta atancldo a ia> LP(CWS(10)). un CB (CURS(13) )ratoma al contador 
a caro y un BS(CKRt(6)) disalnuyo al contador por uno. 

TAB(a) avldaocla taotoa Mpacloa an bianco, bMta qua POS(O) aleanxd 
al valor da n. SI m aupard n, prlaaro aa avanaa ma llnaa (CR/LP) 
iBual qua eon PfUMT sin pardMtro. Nuavaaonta m aoplM aolo AND25S- 

Laa iaatrucelooM IfTAB y VTAS poatclonao al cursor an una datarslnada 
poaleldo da coluana o lliMa. 

Cuando aa poalclona al curaor al Mtrano aupanor laqulardo tlana la 
coordanada 1 ■ 

BJoM>loa 

PRIWr AT(3d.l2);*Pruaba *; 

PRIKT OBCOL'CnSUN 
nUKT Tib<37)i*Pruaba 
PfUNT PQ8(0) 

••> fti al oadio da la pancalla aparsea ‘Pruaba 45 12' y 'Pniaba 44' . 

PROrr AT(4,3);*Palabrs 1" 
ffTAB 4 
VTAB 2 

PRINT *Palabra 2* 
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--> BvidaDcla •! taxte 'Palmbrm 1' «n la euarta coluana da la tareara 
llnaa y al Bering 'Palabra 2' an la cuarea eelma da la aagu n da 
llaaa. 

Laa laatruceloaaa DTan 

Bata grupo da inacrucclonaa haca poalbla al control a travia dal 
aatatua da laa Caclaa da e o n auta c ldn dal taclado duranta la ajacucldn 
dal progroBa y la tnaealacidn da las eaclaa da funcldn eon cadanas da 
caractaraa llbrsaanta daflaldas ( eoao adalao 31 earactaraa por vas), 
qua taablte astda a dlapoalcldn an al adltor dal GPA>BAS1C. 

UTPAOa 


n: laap 


La axpraaldn nuadrlcs d sa avalOa bit a bit y Clana al slgulanta 
alpiiflcado: 


BIT Slpilflcado 0 


1 


0 

1 

2 

3 

4 

5 


MMLOCK 
MUMLOCK 
CntL-KSyPAD 
ALT-KBYPAD 
KEYSEP ain ALT 
KEYDSP con ALT 


ai 

no co nau t abla 

aoraal 

Doraal 

no 

no 


no 

conautabla 

cursor 

Ingraso ASCII 


al 

al 


Cuando aa flja bit 1 aatA eonaetado al aodo NUKLOCX, 0 aaa al bloqua 
da ndaaroa aacA iastalado ceno an una ‘PC'( var taablAn al apartado 
aobra al adltor) . 


Cuando sa flja bit 2. aa puada aanajar al cursor pulaando Control y 
una tacla eon una flacha. 


Cuando sa flja bit 3 sa puadsn ingrasar earacearas ASCII pulaando laa 
tacla Altamata aaguldo dal valor da ASCII. 

Cuando sa flja bit 4 sa puadan oexyar con strings canto PI a PIO eoao 
Shlft'PlO a Shlft-1. bto vala con bit 5 dnlcaaanta cuando sa pulaa 
adiwSs la tacla Altamata. 


B1 ATARI ST tlaM nmalaiTi la conaaldn qua aqulvala a IBYPAD 0. 
Hadlanta al Intdrprata dal OPA-BASIC sa praaalacclaoa an al adltor al 
KEYPAD 46 ( 0 aaa sa fljan loa bits 1,2,3 yS)- 

KEYTlSTo 

UlOCTa 

nruiOKa 


n: Ivor 

La funcldn KBYTEST aqulvala a DQSYS y laa un cardetar dal taclado, si 
sa pulaa una tacla( aanoa Altamata.Sblft y Capa*Lock) dasda al dltlao 
Ingioao. Sa raporta caro, si no sa pulaa nlnguna tacla, caso oBtrarlo 
sa raporta al valor ASCII dal cardetar ( eoao KEYGET) . 

KEVGET aapara a qua sa pulsa isia tacla. b n sa ratoma una palabra da 
dobla dansldad con la alguianta aatmctura: Bit 0-7:Cddlgo ASCII, BltS- 
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15:caro.8lCl.6-23:C4dtco Sc4D.81c2A-31:Eaeatu* da laa taelaa da 
c c n auta cl d n dal tacladD(kbahlft) . 

KEVbOOK poalbtllta la lactura daada al buffar dal taclado sin qua aa 
aodiriqua o borra au cfmtanldo (ratomo ifual qua an nraer). 

Cuando aa aaplaa KEyTEST.XEyOST y KEYI.00K y aa ladlca «u varlabla da 
bycaa o da palabra autoaAUcaawica ocurra una convaralte an un valor 
antaro da 2 bycaa (coao MOfU>(B10S(2.2) ) . 

EJaaploa 

PRIKT 'Oprlaa <Eac>* 

REPEAT 

UWriL lNKEyS>C»(S(27} 

PRUfT ’Oprlaa ocra vat <Bac>* 

REPE AT 

KSYTESr n| 

UXTIL n|>27 

”> Eapara doa vacaa la pulaacldn da la taela. 

PRIKT ‘Oprlaa im cacla* 

Caela_l|>INP<2) 

PRIKT ‘Oprlaa ocra cacla‘ 

KByOET cacla 2| 

PRIKT ‘IKP<2T! ‘icacla l| 

PRIKT ‘KBraET: *:caeU_2| 

"> Eapara doa vacaa la pulaacldn da uoa cacla y raporca loa eddlfoa 
da laa caclaa oprlaldaa. 

REPEAT 

' calcular 
KETLOCE tiX 
UKTIL nX 

UNS INPtrr ‘Qua qulara T'.aS 

— > Eapara an un loop cilculo alaulado \ma pulaacldn da la cacla 
y laa luago un acrlnc alA auprlalr la prlaaca cacla. 


00 

KEYOBr aX 

PRIKT HEXS(aS.6)'BINS<aS.32>’ 
Ovr 5.aX 
PRIKT 
LOOP 


— > Eapara la pulaacldn da una cacla. raporca al corraaaiondtinta eddl^o 
an baaadactaal y blaarlo a luUca al cardccar. Hocas A cravda da 
OVT 5, 1^1*1 qxia cco VXD, aa Indlcan caraccaraa da enncrol dal cur- 
aor «32). 
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UTPRBSSa 
Bl iBXp 

L« Inacmeelte KEYPRESS Blaul* la pulaaclOn i» un« t*cX«. La axpraalte 
Duatrlca b contlana MlaaAa al valor ASCII da la taela. 9u* m alaula 
oprlalr. Bn Rlchaord aa pgadan tranafarlr adlcloulaaDta al cddlEO 
Scan y al aacacua da laa caclaa da conaucacldn dal taelado {cavarar 
KEYOEr). 


Bja^lo 


POR 1S*63 TO 90 
KEYPRESS IS 
HSCr ill 

KEYPRESS 13 

LINE IKPtrr at 

PRINT aS 


I alaula la pulsaclan da 

t laa lacraa frandaa 

I A haata Z 

1 alaula la pulaaclcn da 
I la cacla Racura 

t laa caraccaraa baaca al ratonto da llnaa 
I per aadlo da chrS(13) o REIVRH 


KEYPRESS UOBOOOO t Oprlaa PI 

KEYPRESS LIOOIB I Oprlaa la taela Bae, paraltlando la 
I lactura da taelaa da QB( 


KEYDBP 1,-Qua tal T'*CMRt(13) 

KEYPRESS WSSBOOOO 
PAUSE 1 
LINS INPUT a 
PRINT a 

”> Daflna un taxto. qua aa daba vlauallxar a pulaar Altamata-Pl, 
luafB alaula la pulaaeldn da asta taela. aapara fliialaanCa qua la 
corraapondlanta rutlna da Intarrupcldn puada ajacutar la dafl* 
nleldo da laa taelaa j laa luafO 'Qua tal T* tea INPUT. 

UTSEPB.at 

n: laxp 

at: aaxp 

La lAatrucclde KEYDEP haca poalbla la Inatalacldn da laa taelaa da 
funcldn coQ cadanaa da caractama eualaaqulara, cujra lon^tud bo 
•upara loa 31 caractaraa. Datria da la laatnicclte KEYDBP aa Indlca 
adaada una aapmaldn nuadrlca antra I y 20 Inclualva. Con a da 1 a 10 
aa puada accadar a laa taelaa da funclOn PI a PIO. Con n da 11 a 20 aa 
puadan ladlcar valoraa para la taela Shift y para laa taelaa da 
rtatclonaa PI a PIO. 

Uno dlapona da la Inatalacldn da laa taelaa da funcldn duranta la 
ajacuelde dal prefraaa y an al adltor. Sla aabarfo, an al adltor dal 
QPA'BASIC adlo al aa pulaa adlclonalaanta la taela Altamata (coaparar 
KEYPAD ait « y 5) 
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BJesplo 

KEVDEP l.'Pl* 

KEVDEF U.*Shlft»Pl’ 

--> PulacAdo la t««l» d« fuoclte n vlauAllxa al taxto 'FI' y 

pulaaodo la tacla Shift y PI (cada vax an coablnaclAn con 
Altarnata) aa vlauallxa al caxts 'ShlfC*Pl'. 

Insrnao faaaral j sallda faaaral da datoa 

Bn al alfulanta capltulo aa anallxa priaaro la laccura da conatantaa 
( DATA. MAS, ABSTOAE ) . A eaotlnuaclOo , aa trata la ^alAlacraclOn da 
lAdieaa (DlftS.CKDlll.Dlll.PlLe.aDZR.IDCU) . Bn ralacldn eon aataa 
lAatrucclonaa aa a^llca la aatructura dal alataaa Jarirquico da 
archivoa. 

Luaco aa analixan la apartura, al elatra y al raooabraalanto da 
archivoa (BClST.UU.,KA«.CnH.CLOSS} . AdaaAa aa Indlcan laa 
poalbllldadaa da Infraao y da aallda ia xooaa da la aaaorla 
(BLOAD.BSAVI.BOST.BPVr) . 

A eontinuacldn aa praaantao laa poalbllldadaa da accaao aacuanclalaa 
(INPOn.lNPUTP.PRlKr#) y aacuanclalaa da Indlca {SBSK.RBLSBEX) aal 
eoao archivoa da randiwaccaaa (PlELD.OErf.PVrf.SBEKf.RELSBEXP) . B1 
apartado aobra parlPdrleoa trata lax poalbllldadaa da antroda y aallda 
byte a byta coao INP.OtfT o sua fvatelanaa da prafunta INPT.Oun y la 
racapcldn da loa caraetaraa a travda da la Intarfaaa aarlada y NIDI 
(INPAUXS.INPNIDS). 

Pinalaaaoa aa axpllca la adalnlatracldn dal ratdn y dal Joyatlck 
(NOUSS.MOUSSt.NOUSBV.aXSEX.iaCCi. SHOW. STICK. STfUQ) aal com la 

aallda an «m l^maora (IPfturr.LPaS.HARDCOPY) . 

Llnaaa da datoa 

DATAc«aat[ , eonatl ,cOMt2, . . . } 

BBAIhrar[ ,aarl,var2, . . .] 

USTOU[nar] 

eonat.caaatl,cooat2: conatantaa ouadrlcaa o alfanuadrlcaa (atrlnca) 

var,varl,var2: avar o avar 

aarcai nonbra daflnldo por al uauarlo 

Con DATA aa puadan alaacanar valoraa conatantaa a la vai qua aa aborra 
aapaclo. La laecura da aatoa datoa ocuxra con KBAO. Sa puadan 
praaantar valoraa ouadrlcoa an fona octal o blnarla. SI 

aa daba laar una cadana da caraetaraa, qua eontlana coaaa, toda la 
cadana da caraetaraa daba fldurar antra eoalllaa. 

A loa Inatnicclanaa DATA y MAD loa partaoaca un Indlcador da datoa. 
Baca alavra laAala al alfulanta valor da DATA qua daba laar MAD. Al 
CQaanaar al pfegraaa data aa al prlaar valor dotrAa dal prlnar DATA. 

Con ayuda da la Inatruccldn RdCM aa puada dlrldr al Indlcador da 
datoa a datamlnadaa llnaaa dal DATA. Con aata fin an flja una aarca 
antaa do aata Itnaa dal DATA y al Indlcador da datoa aa flja coo 
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HESTOREbat. 31 dMpuAa uM iMCrucelte RESTORE oo fi(ur« nlnfun* 
MTca, •! indlcador da datoa •# dlrlfa al prlaar valor da DATA qua 
aparaca an el procraaa. 

La tacuancla da caracterea aar puada aatar cowaata da nOaaroa, 
lacraa, tubrayadea y pwstoa y. a dlfaranela da loa neabraa da 
varlablaa. taabtta puate coaanxar con ua ndaero. La aarca aiaaa daba 
flnallzar con 'doa puitoa'. 

EJanploa 

FOR i»l TO 3 
READ a 
PRIKT a' 

NEXT 1 

RESTORE latraa_roMnaa 
READ aS.bS.cS.dS 
PMNT 

PRINT at'bS'cS'dS 

DATA 1.2. 3. ‘I 
DATA a.b.e.d 

latraa ronanaa: 

DATA l7lI.III.IV 

••> En un loop aa lean loa valoraa aiadrlcoa 1.2 y 3 y aa Indiean an 
l a paa talla. Luapi aa dlrl(a al Indlcador da datoa aadlanta 
RESTORE a la llnaa dal DATA con loa nCnaroa roaanoa. Sato oeurra 
eon ndaar«a_roaanoa. Batoa datoa aa aalc&an a eootlnuacldn a laa 
varlablaa atrlnfa aS.bl.cl y dl y aa vlauallaao. 

DATA 10.IA,EA.«HA.U12.AX1010. 11010 
FOR 1S>1 to 7 
READ aX 
PRINT aX 
HBCT IX 

**> Laa alata vacaa al ndaaro 10. ft) RBAD/Wirr/VAL ate. aa puadan 
caraetarlzar nOnaroa KS( eon t y ni ina r oa BIN con X y no aolo con 
&H o A 0 blan 4X. 

Adnlnlatracldo da areftlvoa 

A contlnuacldo aa OKpllcardo laa inativeclonaa qua alrvao para 
orfanlzar archlvoa. Para alio aa daba eonocar la aatructura da 
aapaciricaelonaa da archlvoa aafdn laa raqlaa da alatwa Jarfcrquleo 
da archlvoa. Una aapaclflcacldn da archlvoa conalata da traa partaa: 
la IndlcaelOn da la dlaquatara (dlak-drlva) . al iMabra dal archive y 
la caraetarlxacldn dal archlvo. La Indlcaclta da la dlaquatara 
contlana la caractarliacldo da la dlaquatan A a 0 aaculda te doa 
puntoa. El caabro dal archlvo tl«a 1 a 8 earaetaraa. Opclonalnante aa 
puada Indlcar (m caraetarliacldn dal archlvo. Conalata da un punto 
aatuldo da 1 a 3 earactaroa. 

Para Mfulr aubdlvldlendo archlvoa aalataa indlca ( taablda llaaadoa 
ordanadoroa I . Batoa ordanadona aa puadan Inatalar a dlatlntoa 
nlvalaa: al nival ada bajo taablta aa liana indlca bAslco. A partlr da 
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•sta Indlca bAclco m pu«to produclr la nMlflcaciOa an otroa 
BublDdlcaa. Por lo canto, una lnacrlpcl6D da ua Indlca puada aaCar 
coapuaata da 

- indlcaclonaa da la dlaquatara 


• Noabraa da aubljidicea 


• NMbca y caractarltacldo dal archive 

Bacaa parcaa aa aaparao coo barraa invarcldaa *\*(Backalaah) . Lot 
noabraa para Indlcaa Uaoao al alaao foraato qua loa noabraa da 
archlvoa. Aal aa obtlaoa al caalno da accaao a un archive por 
acoplaalMCo da loa alaaaocoa praaaocadoa aatarloraanta. Prlaaro la 
Indlcacldo da la dlaquatara, aaguldo dal neabra para aublndlcaa, y 
luege al ooabra dal archive, por.aj: 

A i \TBCrOS. D0C\NAt(UAL\CAPmn,0_l . DOC 


En aaca ajaaplo al caalno da accaao aa: 


A: 

\1BCTOS,OOC 

\NAKUAL 

\CAPimo_i 


ladlcacldo do la dlaquatara 
ladlca TBCTOS.DOC 
SublMlca HAMUU. 

Koabra dal archive CAPITUL0_1 


Sa dlapoM ailmiii da doa alabolea aapaclalaa. qua hacen poalbla una 
aalaccldn da archlvea a*a fAcll. Puadan flfurar danece da noabraa da 
archlvoa y aua caraetarlzaclonaa. Son al alfno da Intarrocacldo y al 
aatarlaco ( al alfoo do aultlplleaeldn) . 


SI alpM do Incarrofocldn haca poalbla qua cualqular carActar , cuyo 
cddlgo ASCII aa aayor qua 32, ocupa aata poalcldn. Taabldn aa 
poalbla uaar al alpto da latarrefaeldo an varloa lucaraa da la 
aapaclflcacldn dal archive dajar qua aa aucadan unoa a otroa varlaa 
vacaa aafuldaa. B1 aatarlaco alfiilflca qua cualqular cadana da 
caractaraa puada oo^ar todaa laa poalclonaa raatantaa. 


ladlcos 


pniBR(a) 
CEDBIVSa o aS 
DIB(n) 

CSDUBoabrat 


d: laxp 
noabraS: aaxp 

DPBEB (disk rraa) da al lufor da aloacwMalnato libra do una aataclOn 
da dlaco an bytaa. Bata runcldn puada tardar clarto tlaopo an dovolvar 
un raaultado, aapaclalaanta an partlclonaa da harddlak. 

CKDRIVB (ehanco drlva) flja U dlaquatara aatAndar. 51 una 
Inatruccldo da antrada o aalida no aa Indlca nlnfCina dlaquatara 
aapaclal. al ln«roao y la aalida aa ajacuta an la dlaquatara 
oatindar. Coo CHOfUVB taablAn aa puada Indlcar ua atrlnf, cuyo prlaar 
carActar aa la latra Inlclal da la dlaquatara ccao ndaaro da 
dlaquatara. 
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DUIS{n) coul(u« *1 CM Ino da a«eaap actual para uoa dlaquatara, eeao 
fua fljada por CHDIR. 

Para oniEE(D) 7 D1RS(d) 7 CHDRIVEn al valor o aa la oaraetarlaaclte da 
la dlaquatera. Bn aata eaao a puada aaualr lea valoraa antra 0 7 I6, 
donda 0 aqulvala a la dlaqiiatara acclva 7 1 a I6 a^ulvalan a laa 
dlaquataraa A a P. 

CHOIR flja al Indlea actual. Va qua eon CHOIR m aa poalbla nlixftin 
eaablo da dlaquaeara, aata laatrueelda alaapr* vale para la dlaquatara 
actual a para la dlaquatara Indleada. Aal CHOIR *B:\TB?T* ea^la al 
ordanador por dafacto para la dlaquatara B:, o aaa al ordanador, al 
qua aa acuda cuando aa accada a aata dlaquatara ala lAdleaclonea dal 
coalno, o aaa aln \. bi aata caao la aapraaldn atrlAf no^raS cunpla 
la alaaa funcldn qua al eoalno da accaao daaaado. Cuando nonbraS aolo 
eentiana una barra Inwartlda *\*. aa conauta al Indlca bdaleo da la 
dlaquatara actual. 

AdaoAa hay doa noabraa aapaclalaa para ordenadoraa *.* 7 SI 

nonbra da ordanador *.* rap r aaa n ta laia foma da doolfnaclte 
altamatlva para al ordanador active y al aoaibra da ordanador *..* 
para al ordanador auparlor. 

Si on un dla eo aa lata por aj . al ordanador \TBST\01 y \TEST\02 y al 
ordanador \H2>T\01 aotd actlvo ( aadlanta CHOIR), antoncaa aa puada 
eaabiar al ordana^r \1ST\02 con CHOIR*. .\02*. 

SJaaploa 

CHDRIVS 1 
PRIKT 0PREE(0l 
PRUrr 01RS(2) 

CHDRIVS *Cj\* 

••> CHORIVBl flJa eoao dlaquatara aatdndar a la dlaqMtaro A. PRIKT 
DPRSB{0) indlea al aapaclo libra da alaaeanaalanto ( an bytaa) da 
la dlaquatara aatdndar (n«0. Ahora dabido a CHDRIVBI aa la dla- 
quotara As) an la pantallo. PRINT DIRt(2) da al ctalno da accaao 
an la dlaquatara 8: .A cootlAuacldn aa flja la dlaquatara Ct eeae 
dlaquatara oaUndar. 

CHOIR *\* 

CHOIR *TeCTOS.DOC\KANUAL* 

CKDIR 'ANBXO' 

— > CHOIR *\* paaa al indlea bdaleo da la dlaquatara actual, bi la 
aafunda llnaa aa paaa al auboedanador dal Indlea ISA'IUS.OOC. bi la 
tarcara llnaa aa algua raalflcando an al aubindlca • 

AirBC0(\TBnD8.D0C\MMML\ARB(0) . 

DIRpSITOaoabraS] 

nLBSpS[TO«aabraS] 

pl.neobraS: aaxp 

Laa Inatrucclonoa DOI y PILES alrvan para la aallda da Indlcoa. Cuando 
aa uam OIR aa vlauallxa an al paotalla an foraa aatdndar al Indlca da 
una dacarainada dlaquatara. bi aata caao aa Indlca al da accaao 

daaaado an la expraaldn atrlnc pS. Lo olaao vala para la Inatnccldn 
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PILES, aunqu* «a mm caao m ^ctunil—nf 1ft fechft. 1ft hor* 

y 1ft lonsltud da 1 m correftpondlaotM ftreUvoft. Art—fti m vlftuftlisftn 
loft noftbtftft dft ordftOftderM prftcftdldoft por un *, cutndo cuaplaa eoo 1ft 
■Aacftra de buftquedft (pcr-aj.*.*). y ftvoriiftl—ntft uabldo lo« 
ordanadorfts * . * y * . . * . Cuaado 1ft ftAsctr* d*l ftreblvo pS tatmlM ao 
*:* 0 ftft *\'.wcoecftft «1 «■« QFA-BASIC ftfren **.** {eoftparar 

FSPIRST y FSHSCT). 

Para DIR y PILES opclonalftaata taablAe M poalbla ftfrafar TO noabral. 
Cuando apUca aata agracado aa poalblft darivar al indica a un 
archive e a aparato parlfdrlca. La aivraida atring noabraS 

conciftM aa aaca caao al eoabca da la archive o biaa da tma 
earaccarlsaclda da parlfArlcoa. 

Blaaplo 

DIR •A:\TEX1VH»\».D0C* 

DIR *Ai\TEmBl\llANDBUCll\*.DOC* TO *B:MiAKDBUai\l»lALT.ASC* 

DIR *As\*.** TO •PKIi‘ 

FILES "Ai\*.D0C" TO ■LST:" 

— > la prlaara llaaa aa vlaualiaao cedaa lea aa abraa dal archive 
coa la caractariaacida *.D0C( dal ocdaaador *\TSCTVBR*an la 
dlaguatara A) aa la pantalla. La aagunda liAaa pteduca la 
darlvaclda dal Indlca a un archive *1NHALT.ASC* an la diaquatara 
B. La realisaclda an una laprasora ocurra an urta tarcara liaaa. bi 
la cuarta liaaa aa darlvan todoa lea aaabraa dal archive coa la 
caractariaacida *.D0C* a la iapraaora. 

POBrirrAO 

FSBUrTA(adr) 

adr: laxp 

La funclda FQBTOTAU da la OTA (diak cranafar adreaa). 

Con PSETDTA aa fija la OTA. TaabiAa un Plloaalace*boa aodifica la OTA. 
Para OTA aa praaalacciond BASSAaB«12S. Bata dlraceidn taabiia la uaa 
DIR. PILES y EXIST. 

La OTA tiana la aifuiaata aaCxMcCura: 


Bytaa 

orraac 

Significado 

21 

0 

Raaarvade para OBKDOS 

1 

a 

Atributea dal archive ( var ada adalanta) 

2 

22 

Hera 

2 

24 

Pacha 

4 

26 

Langltud dal archive 

14 

30 

NoBbra dal archive flaaliiaado coa byta nule. aia 
aapaciea ■> blaace. 


BI ai^xificado da lea bita dal atribuco aa: 

Bit Sipxiricado 

0 Archive qua no aa puada aacribir. aatA pretagldo. 

1 Archive aacondldo. 
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2 Arehlvo d« alsMM. 

3 Noabrv dal disco. 

4 Ordanador. 

5 Bit dal archlvo. 

PSniST(pB.aCtr) 

psnrro 

pS: texp 

attr: iasp 

La funcldn FSPIRST haca poalbla buacar al prlaar archlvo. qua 
■aclsfaca al critario da Mi^uada indleado an pS (por aj. C«\*.OPA|. 
Koabraa da archlvoa ancoottadoa y otraa Inforaaelaeaa aa aacrlban an 
la DTA. El parteatro attr contiana loa atrlbutoa, qua puadan tanar loa 
archlvoa a anccntrar. 

La fuDCldn f SHIUT ( ) buaca al prdxlno archlvo, qua aatlafaca las 
condiclcnas da FSFIRST. 

BJai^lo 

'FSfrDTA(BASEPAaS* 128 ) 
aI«PSPlRffrC\*.C!PA‘.-l) 

00 UIRIL at 

IF Bm(BAS^AaB*l49) AND Id 
PtUNT **';CHAR{BASSFAaS* 15 fi}. 

ELSE 

PRINT 'CHAR{BASEPAaB*150). 

ENDIF 

aI«FSNSXT() 

LOOP 

”> Bn la paatalla aa vlauallzan todoa loa archlvoa con al aufljo .OFA 
provanlantaa dal Indies actual, aal eoao todoa loa noahraa da or* 
danadoraa, qua taablAn poaaan eaa aufljo, aarcadoa eon *. 


nUI I Rooab raS 
BWPIRnoabrai 

noabraS: aaap 

La inatrueeldn KKDiR(aska dlractory) praaanta un Indies (ordanador). 
La axpraaiOn atring noabrat contiana al corraapondlanta caaloo da 
accaao. Con RMDIJt (caaova dlractory) aa borra ua Indlca (ordanador), 
paro aOlo cuaado aata Indies no contiana aublndlcaa 0 archlvoa. 

BJaaplo 

NKDIR "AATBOVER* 

RXDIR *A:\TBXTVBR* 

— >&i la prlaara llnaa aa Inatala ua Indlca ’TEXTVER’ an la dlsquatara 
A, qua as vualva a borrar an la asfunda llnaa. 


( aaut DTA 

I Suchkrltarlun faatlafan 

1 vann aa ala Ordaar lac 
i Stam davor snaalfon 
> aonat ala Laartaleban 
I vor dan Datalaaaan 

1 Sucha forcaauan 


» • 
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Arcblvoa 
■XlST(Miibr«$) 
noabraS: Mzp 

Con ayuda da SCIST aa puada dataialnar, ai axiata un archlvo. Para 
alio aa Indlca an la axprealdn atrlnc ooabraS al eaalno da accaao da 
aata archlvo. La fuacldn ratoma TBUB(*1). cuando al archlvo axiata, 
alno da PALSS(O) (co^arar: PSPIBST jr P9BCT}. 

Bjaaplo 

OPSW "U’.ll.’TSST.TW 
PRUrr fl.'BBISPlBL* 

CLOSE fl 

pRiKT BtisrrrsT.Tcr) 

PRlwr BC1STCTEST.DOC*) 

••> b laa doa prlMraa lioaaa aa abra tai archlvo coo al noabra 
*TE5T.TXT*. La cuarta llnaa ravlaa la axlataocla dal archlvo 
"lEST.'IXr, aa ratoma TRUE. Bn la lUtlaa llnaa la ravlaldn da 
PALSS. ya qua no axiata al archlvo. Coaparar taabldn: PSFIRST. 
P9HXT. 


OPDaoduaB , #B . DoabraS[ ana 1 

aoduaS.ncabrat: aaxp 

ana, ns laxp 


OPEN abra sin canal da datoa bacla ts archlvo o uo aparato parifdrlco. 
Bn aata caao la axpraaldn atrlnf 'aodual' datamlna sina da laa 
alsulantaa poalbllldadaa da accaao: 


0 (output) 

1 (Input) 
A (appand) 

U (updata) 


Abra un archlvo para aacrlblr. Para alio avan- 
tualaatsta aa orp^aa da ossavo e blocs aa borrao 
datoa axlaacstaa. 

Abra un archlvo para laar. 

Haca poalbla anaaar datoa a uo archlvo axlacanta. 
Bn aata caao al Indlcador da datoa aatA dingldo 
al final dal archlvo. 

Abro un archlvo axlataota para laar y aacrlblr. 


R (randoa accaaa) Abra sin archlvo para aacrlblr y laar a alaccldcs. 

En la inatmcclte PIEU aa da una daacrlpcldis da 
aata tlpo da arehlvoa. 


La axpi-aalCn niMarlca n eootlana al ntearo da canal y puada aaunlr 
valocaa da 0 a 99. Eata luiaaro da canal aa data Indlcar cvsando aa 
qulara trabajar con al arctslw. aata caao aa puada auprlalr al 
alabolo # antaa da la Indlcacldn dal canal. La aipraaldo atrinp 
noabrat contlacM al caalno da accaao dal archlw. Caao noabra dal 
archlvo caabldn aa puada Indlcar una caractarlxaeldo da parlfdrlcoa 
(var Uata ais Dff) . La avraalte awArlca anx solo aa avalCsa an 
arehlvoa da libra accaao (randos accaaa): m* eootlana la loopitud da 
una oncldo da dates. 
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Abravlaturaa 


Slgnlflcado 


Um Intamo 


LST: 

(Hat) 

AUX: 

(auxlllar) 

COH: 

(consola) 

HID: 

(aualcal Inatruaanta 
dlfltal intarfaea) 

IXB: 

(intalllBent kayboard) 

VID: 

(video) 

PEN: 

(printer) 


paralelo 

Mrl* (RS 232) 
TeclAdo/aMLlCor 
InurfaM MIDI 

FrocuAdor dal 
taclado 
Nonltar 
lBpr««or« 


Bice 0 
BIOS 1 
BIOS 2 o VDI 
BIOS 3 

BIOS *1 

BIOS S o VDI 
QMdoa - 3 


U)F(#b) 

L0C(#a) 

B0 P(«b) 

CLOSI[#a] 

toocbCp]b 

■ni, n: laxp 

Lm funciOM* LOP (lan«ht of archlvo), LOC (location) jr BOP (and of 
archlvo) aolo aa puadan apllcar an atchivoa pravlaaanta abiart^. Laa 
traa funeionaa tlanan la axpraaldn miadrlca *n* an conOn. Indiea al 
nuaero da canal dal archlvo. al (*ua M raflara la corraapoodlanta 
funcldn. LOP da la longltud da un archlvo an bytaa. LOC da P ^ lelOn 
actual dal indlcador da datoa taablAn an bytaa (var tartlta SSa). B3F 
Iftdlca. al al IndlCKlor da datoa aaAala al final dal archlvo ( o blan 
al al archlvo aa ha laldo coaplataaanta) . Cuando al Indlcador da datoa 
aaAala al final dal archive, aa ratoma TOUS (•!). caao eontrarlo 
PALSB (0). 

CLOSE ciarra un canal da archlvo pravlaaanta abtarto con OPBH an un 
archive o an un aparato parlfdrtco. En aata caao. la 
nuadrlca *n’ contlMa al ntea ro dal canal a carrar. Sin una Indlcaclon 
aapaclal dal canal, aa damn todoa loa archlvoa ablartoa. 

TOUCH actualixa la hora da un archlvo. o aaa al roflado da la facha 
y da la hora da un archive ablarto aa ajuata a loo datoa dal alataaa. 

SJaaploa 

K’BN *0*.#1. 'taat.txt* 

FDR 1S«1 TO 20 
PRIKT fl.STRS(lX) 

HEXI IX 
CLOSE fl 
PILES 'taac.tat* 

DELAY 20 I 20 aafuodoa da pauaa 

OPEH "u*. II. 'taat.txt* 

TOUCH II 
CLOSE II 
FILES 'taat.txt 

— > al ajwplo aa abra y clam para la lactura al archive 

'taat.txt' bajo al nOaaro da canal 1. A contlm iaclCn aa vlauallian 
en la pantalla loa datoa da aata archlvo. aa actuallxan daapuAa da 
20 aafundoa y aa vualvan a vUuallxar. 
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OPEM 

PRIKT * Latco ^ archive: *!UtP(«l) 

PiUKT 

PRINT * Date«*,*Paslcicci dal ledlcMlor* 

00 UNTIL EDP(«1) 

INPUT #i.a 

PRIKT * *;aS.L0C(«l) 

LOOP 
CIOSB II 

--> El ajaaplo sbra al alaao archive para la lactura. Prlaaro aavlaua- 
Uaa la loocltud dal archive aadlaeta LOP. A eoctinuaelte. aa 
indlcaa «i la paetalla al contanldo dal archive y la corraapoA- 
dlanca poaiclte dal Ihdlcador da datoa. La condlclda para la 
iBCarrupelte dal loop aa flja con BOP. La laecura da lea dacoa 
ocurrai indapandiaoteawita da la lonfltud dal archive calculada 
anurloraaota) per tavlaldn dal Indlcador da dacoa. Eo aaca caao 
aa vualva a ajacutar cantaa vacaa al loop, haaca qua la funelda 
BOP da al valor ITtUB {•!). 

NAKBvlaJoSASeuavoS 

RBUnvlajotASaiMvo* 

ElLLaoabraS 

vlajot.nuavol.acabrat: aaxp 

NAME caabia al aeabra da ua archive con al caaliio da accaao vlajoS per 
al noabra dal archive coo al caalno da accaao nvtavol. El eontaoldo dal 
archive no aa aodlflca. Loa archlvoa vlaJoS y aiavoS dabao ballaraa an 
la alaaa dlaquacara. RENAMB aqulvala a la lAatruccldn NAME. 

KlU. borra un archive, cuyo caalno da accaao aa Indlea aa la oapraaldn 
acrlAf ‘neabraS*. 

BJaoplo 

OPEN "O’.ll.’pniaU.txc* 

PRINT II.'Bjaaplo* 

CLOSE II 

NAME 'prueba.tat* AS *aJa«l0.Cxc' 

DIR 

KILL *aJaaq>lo.Ut* 

OIR 

••> Sn al prlaar ajaaplo aa abra al archive 'taac.tst* pare aaeriblr. 

A coociouaclCn. aa caabia al noabra da aata archive por 
'ajaaplo.uc* y ftnalaanca aa bom. Sato aa eoctrola a cravha da 
la aallda dal Indica. Oaipuia da KAMB o da KILL aa vlaualltan an 
la pantalla loa Indlcaa aedtricadoa. 

BLOAOsSC.hdr] 

BSAVBot.adr.aaa 

noabraS: aai9 

n.adr.anx: aazp 


Con BSAVB oa puada alaacanar una aona da la aaaorla aobra al dlaco 
(RAH'dlak. dlaco rlfldo, acc.), al cual aa puada volvar a carfar per 
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ej. coo BLOAC. L* «xpc«sUa DuaArlct kdr indie* 1« dlrsecldn Inlel*! 
da 1* xona da la aaaorla. Sin olafuna Indlcacldn da adr aa usa la 
liltlaa dlraceite aoabrada per BSAVB. Sa al caso da BSAVEaa daba 
Indlcar adaaAa *bz ( la londtud dal arehivo aS). B1 pa rd aatro nS aa 
al Doabra dal arehivo a eargar o a alaacanar. Par* oS laa raglaa 

daaeriptaa bajo DIR dal atataaa Jarirqulco do arehivo*. 

/ 

BSAVE.BLOAD adlo puadao aolicltar arehivo* coaplacoa por *u noabr*. 
Da lo cootrarlo. BPUT y BOBT aollclean arehivo* a travd* da au ndaero 
da canal n. Aal aa poalbl* eargar o alaacanar part** da un arehivo ( 
Inelualva varlaa vacaa) eon BCST y BPUT. 

Sjaaplo* 

D2PPIU. 1.2.4 

PBOX 100.100.200,200 

BSAVB *r*ct.piC*.XBiaS(2), 32000 

CIS 

PRINT AT(4,20)i*Ha aide guardado. Pula* un* taclal'' 

• I »(21 

CL3 

BLOAD 'race.plc* 

— > Dlbuja iA> ractAngulo y alaacana I* pantalla baJo ’raetahgulo.pie*. 
Bntonea* aparac* al corroapondlanta aanaaja. Daapuda da una 
pulaactda da tacla a* vualva a cargar *1 arehivo alaaeaoado an 
1* pantalla. 

DSPPILL 1.2.4 
PBOX 0.0.639.199 
OBPflU. 1.2.2 
PBOX 0.200.639.399 
DBPTKXT 1.0.0.32 

TEXT 100,119. *U altad da arrlba’ 

TSXT 100.315. *U altad da aUJo* 

OPBN *0*.#l.**craan.ple* 

BPUT »1.XBI0S(2). 32000 
CUSS II 
PAU3B 25 

OPBR "I'.fl.'acrawt.ple* 

BOBT II. XBI06(2}»16000. 16000 
BOBT II. XBI0S(2), 16000 
CUSS II 

— > Rallana la altad auparlor dal aonltor eon una auaatra y la altad 
Infarlor con otra. Luago aa alaacana toda la pantalla an al 
archive acraaa.pie y aa vualva a laar daapuda da una pauaa. 
aat* caae a* carga 1* priaara altad dal aixhivo an 1 * altad 
InfarloF da la pantalla y la aaguada altad an la altad at^arior da 
la pantalla. 

Aceaao aaraanr t al 

U(P<#a) 



n.a.b.e. . . . : iaxp 
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INP(fn) UQ byta da tA archive ablarw antarloraanca. Bn Foma 
aoAloca transflara OVT un byta a ia archive. La axpraaldo nuadrlea *o* 
contlana an aaca case al nCmaro da canal (0 a 99). bajo al cual aa 
sollclta al corraipondleeta archive. IMP y OUT aln *f* sa puadan uaar 
taabldn para la coaunlcacldn con al aonltor. QBO. la latarfaaa MIDI, 
ace. (ver alll) . 


Con OUT aa a^laa BYTE(b). 

EJaaplo 

OPEM 'O’.fl, 'pruaba.txt' 

OUT *1,128 
CLOSE II 

*I’.fl.*pruaba.tjic' 

a-INP(#l) 

CLOSE *1 
PUNT a 

”> Eh al priaar ajanplo aa abra tn archive para aacrlblr y aa aacrlba 
uo byta. qua aa aacrlba an la aafunda parca dal ajaaplo la 
varlabla nuadrlca *a* y aa viauallsa an la pantalla. Bo aaca eaao 
‘a’ tlaoa al valor 128. 

UCPtrrt(aBsC.*Bl) 

n.ana: iaxp 

UPUn laa una cadana da caractaraa co^aiaata per ani caractaraa dal 
taclado. La Indlcacldo do un ouaaro da canal *o* (0 a 99) produce 

opcionalaanca la laccura da caractaraa provanlantaa do uo archive. 
aaboa eaaoa la axproaldo niadrica *aoc* ladlca, cuAncoa caractaraa aa 
hao da laar. 

BJanpla 

0PB< 'O'.ll. ’varalon.dat* 

PRINT II.’QFA-BASIC. Varaloo 3.0* 

CL0S8 *1 

0Pa< *I*,fl, 'varalon.dat* 

v«*iNp(ns(9.#i) 

CLOSE *1 
PRorr vs 

PRUFT 'Huaaro da varaloo: *s 
PRINT iwun(3) 

En al priaar ajaaiplo aa abra al archive 'varalon.dat* y aa aacrlba 
un aanaaja eo al archive. La aa(w:da parta dal ajavlo laa loa 
prlaaroa ouava caractaraa da oata archive an la varlabla atrlof vt 
y la vlauallaa luage an la pantalla. ftitaocaa aparaca un aanaaja y 
aa loan traa caractaraa dal taclado y aa vlauallaao an al aonltor. 
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UIPOT#n.vKrlC.w2,T«r3, . . .] 

LINB DCP1IT#a.altC.a2S.«2S....] 

n: lexp 

siS.a2S.a3S: aaxp 

varl,var2,var3: avar o svar 

INPUT fD haca poalble iMr dscoa da un archivo. aita eaao sa puadan 

laar valoraa Indlvldualas o llacas da variables, donde las variables 
ascAn saparadas por ccaus. Estas Inatnicclonas aqiilvalan a INPUT o 
INPUT LINE, solo qua aqul (an la aayor parts da loa casos) no sa las 
dasda al taclado. 

BJeaplo 

OPBI ■I’.ll.'TBtT.DOC" 

INPUT fl.aS.bS 
LINE INPUT #i,cS 
CLOSE fl 
PBIKT aS 
PRINT bS 
PRINT cS 

••) Lao eras serlnfs da un archive { qua sa dabs abrlr antarloraenea) 
y loa ratorna an la pantalla. 

PRINT/ D , ejtpraaldo 
PRlNT/D.DSIlKiroruS.axproslda 
HUTR/b , aaprasldn 

n: laxp 

foraaS ; aaxp 

exprasldn: aaxp o aaxp e coablnaclooas da datos 

PRlNT/n vUuAllza dates an un canal do daws. PRlNT/n.USINO parslta la 
aallda foraataada an un canal da daws. Bn aabos eases n raprasanca al 
nOaare da canal (0 a 99) dal corraapondlanta archivo. lo d a aii as 
Ifual qua PRINT. PRINT USING y WRITE. Sin aabarco, no as poslbla 
PRINT/n.AT(.). 

La Instruecldn WRITE alrva an prlnar lutar para alnacanar daws an 
archives aacuanclalas aborrando aspaclo y asCA conflfurado para la 
laceura da archlvos eon la Instruccldn INPUT. Las axpraslonas sa 
saparan con coaas y las cadanas da caractares sa daban Tlgurar antra 
coalllaa. 

BJaaplo 

OPEN TEXT.DOC* 

PRINT *l.*Pruaba*.aS 
PRINT /l.’OPA*’. •BASIC- 
CLOSE /I 

--> Laa eras serines da un archivo (qua sa daba Inscalar pravlanenta) 
y loa rawrna an la pantalla. 

OPm *0"./l.'TEST.DAT* 

WRITE #l.-Varalon*.3.*.0* 

CLOSE II 
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OPQI ’I",#!, "TEST. OAT* 

DiPVr «l,vlS,v2S,v3S 
CLOSE #1 

PRINT vlS»v2S*v3S 

-•> Bacrib* dacoa aaparadoa coo coaaa an al archive TST.OAT, a conci- 
nuaclOn vualva a laar loa datoa eon INPUT y loa ratoma an la 
pantalla. 

STOSB#l.sS()[.nI 

UCALLBl.aSO.a.a 

i.n: laxp 

xS(): arraflo atrlnc 

x: varlabla da por lo aanoa 32 bita 

La Inatneclte STORE alrva para alaacanar utt ca^o da acrloca coao 
archive da taxto (aaparado por CX/LP). Sa vlauallxa al arraflo atrlng 
caiq>lato a travAa dal canal ablarto 1. El parteacro da libra alaceidn 
n puada iadlcar, cuinua alaawntot dal arraflo acrlnf aa ban da 
vlauallxar. 

La Inatmccidn RECALL alrva para la lactura rdplda da un eaapo atrinf 
da un archive da taxto. Sa laao n Unaaa dal archive da taxto an al 
arraflo atrinf. Si n aa daaaaiado franda para diaanaiooar al arraflo 
atrlAf. antoncaa aa linlta autoaAtieaaanca la cantld^ qua aa daha 
laar laa todo al arraflo). Si duraota la lactura aa alcansa al 
final dal archive (B>P), aa Intarruapa la lactura ain aanaaji da 
arrer. Ploalnanta la variable x aiaivra cootlaoa la cantid^ 
atriafa raalaanta laidoa. 

Ejaaploa 

OIM AS(IOOO) 

POR iE-0 TO 499 

aS(iS)aSntS(RMt» Icualqular coaa 
NEXT i% 

oeSH •taatfUa.txt* 

STORE «l.aS0.500 
CLOSE #1 

DIN bS(2000) 

0PS< 'I*. ft. ‘taatma.txt* 

RECALL fl.bSO.-l.n 
CLOSE fl 
PRINT n 

— > Sa viaualiaa la cantidad da linaaa dal taxto laidaa, an aata caao 

500. 

PRINT 'Zailwxlhlar' 

DU aSUOOO) 

DO 

PILESELBCT 
EXIT IF fS«** 
lcI-0 

OPEN *I*./l.fS 


pdfina 115 



OFA SASIC 3.0 


INORESO / SALISA OATDS 


DO 

RECALL #l.aS().-l.aS 
ADO IcS.xX 
LOOP WHILE kX 
CLOSE II 

PRIKT fS;* contl«M ’:lcX:' Umu* 

LOOP 

"> B*c* progruA euent* lu liitMa an lot archlvoa da taxto. 

Kota: STORE taablAo funciooa para archlvoa orlantados coo caractaras 

(AUX:), an canbio RECALL do, ya qua latamaaanta aa anplaa ud SEEK. 

StStlo.poa 

SILSOIPa.aas 

n.anx.poa: laxp 

Laa inatrueclonaa S^C jr RELSOl paraltan poatclonar al Indlcador do 
datoa. Da oata foraa aa puada roaltzar un accaao a datoa lacuanclalea , 
bt aata caao la axpraaldn nuadrica *n* conclana al ndaaro da canal da 
un areblvo ablarto pravlaaaDCa coo OPEN. Aabaa Inatrueclonaa aolo aa 
puadan oaploar con archlvoa, no con aparatoa parlflrlcoa. El indlcador 
da datoa aaAala, quA byta da un archlvo ha aldo laldo o aacrlto coao 
dlelao . Baeapto an al aodo *A* (Inaarcldn da datoa an un archlvo 
axlatanta) al Indlcador do datoa tlana al valor 0 al abrlrsa un 
archlvo. Laa Inatnteclonaa da aaerlcura y lactura conlansan con al 
prlaar byta, qua aaftala al Indlcador da datoa. 

Para la poalclAn abaoluta dal Indlcador da datoa aa uaan laa 
Inatrueclonaa SEQ(. Pam alio aa apunta al Indlcador da datoa aobra al 
byta Indlcado an *poa*. La ublcacldn ralatlva dal Indlcador aa raallaa 
con la Inatruccldn RBLSEEX. Aqul aa corm al Indlcador da datoa daado 
tu poalcldo actual por «a> valor indlcado an *ana*. RBLSES 
canamlaanta aa ada rdpldot 

Laa axproalonaa nuadricaa *anz* y *poa* aolo puadan aaunlr valoraa 
antm 0 y la corraapoodlanta lon^Cud dal archlvo. El Indlcador da 
datoa aa dooplaaa an dlroccldn al final dal archlvo con valoraa 
poaltlvoa y an dlroccldn al conianxo dal areblvo eon valoraa 
nofatlvoa. Cuando aa Indlca 0, al IndlcMor da datoa aaAala al 
conlanzo dal archlvo. 

BJanplo 

open •0*.I1,*X.X* 

PRIKT ai.STniNOS(20,>l2} 

SEEK 11.10 
PRIKT II. ‘I*: 

RELSSEX II. -5 

ovr 11.33.A6 

CLOSE II 

OPEN ‘l-.ll.’X.X" 

LINS INPVr II. aS 
PRINT aS 
CLOSE II 

--> So vlauallxa: •»««»»!0**l***»**** 
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ArchlTO mlMtoFlo 

A conctDuacl6n m «Kplica «1 aacaio da loa llaaadoa archlvos con 
raadOB-aeeaaa (arcblvo alaatorlo). A^ui tianan aucha la^rtancla loa 
alcu^Ktas doa coocaptoa: raftatro tlpo da un archive y caapo da 

dacoa. B1 raglatro tlpo da un archlvo rapraaaota da aqul an aia un 
reauaao Idflco da dacoa. por aj. al raclatro tlpo ‘dlracelonaa* . Bata 
raflacro tlpo da un arcUvo puada aatar aubdlvldldo an eaapoa da 
dacoa, por aj. ’noabra*. *calla*. Bn foraa antloca aa uaao loo 
concaptoa looflcud dal resiacro tlpo da ua archlvo y dal caapo; alloa 
Indlcao la lonficud dal raclacro tlpo o biaa dal caapo da dacoa an 
bytaa. 

La dlfarancla fundaaantal antra un arefalvo randoa o alaatorlo y 
archlvo aaeuanclal eonalaca an al a cc a a o da loa dacoa. Bo un archlvo 
aacuanclal aa daba carfar code al arcblvo, para podar tanar accaao a 
un rafiacro tlpo do un archlvo. So caablo. ua raflacro tlpo aa puada 
laar da un archlvo randoa ala tanar quo laar todo al arcblvo. Bate aa 
Buy dell euando aa crata da archlvoa auy a>tanaoa. Sin aabarco. acta 
vancaja Ctm aparajado «ai aayor raquarlalanto da aapaclo do la aaaoria 
dal diaco. ya qua un archlvo alaatorlo o mdoa crabaja con lonfttudaa 
da raftatro tlpo y da ca^o fljaa. lacaa lonficudaa dal raftatro tlpo 
y da cavo aa *'-»***■-*“ In dapa n d t antaaanta da la lonfltud da loa 
dacoa. 

PlBLO#n.aAaASraflatroB[.aaaASraglatrot.aBaASraflatro$, . . .] 
PIBLD#a.aaaAT(s)[.aaaAT(«)C.anaAT(aK ] 

n.ana.a: laap 

raflatroS: avar, pato no varlafala da caapo 

La Inatruceldn FTELD AS aubdlvida ra^atroa da datoa on eaapoa. La 
aapraalOn ouadrlca n aa al nuaaro (da 0 a 99> bajo al cual fua ablorto 
un archlvo randoa an la inatruceldn OPW corraapoodlanta. La axpraaldn 
antara ana dauralna la lonfltud dal c^o. La varlabla atrlnf 
raftatro! contandrd «■> caapo dal raftatro tlpo da un archlvo. SI al 
raflacro aa daba aubdivldlr an varloa iraigina. aa daban aaparar laa 
partaa da laa Inatrucclonaa ( ana AS raclatro!) cen coaaa. La auaa da 
laa lonficudaa da ca^o Indlvldualaa daba aqulvalar a la lonfltud dal 
raftatro. alao aa l^rlalr! on pantalla xa aaniaja da airor. Para quo 
loo dlatlncoa raflatroa no tanfin xata lonfituda dlParanta a la Pljada 
con la Inatruceldn flSLb, raaulca eon v aolanta uaar laa inatrucclonaa 
LSET y RSBT o HIM. 

Con AT aa puadan Infiaaar por oj. varlablaa auaOrlcaa an un archive 
alaatorlo (randoa accaaa), aln qua aa daban tranafarlr a e ad an aa da 
earactaraa, ai antra loa pardocaala rifura xb ladlcador qua aaOhlo la 
varlabla nunArlca a iloBranar y dalatta da AT flfura la cantldad da 
bytaa, qua aa daban laar y aLaaranar a partlr da aaca dlraccldn. 
Taabtdn aa puadan Indlcar otras dlracelonaa Por a j . : 

FIELD #1.« AT(«aS).2 AT(*b!}.8 AT(*e«) 

AdaaAa aon poalblaa ecablnaclonaa da AS y AT, por aj. ; 

PIBLC fS.AS a!. 2 AT(*bi).8 AT(*c#).B AS d! 

A dlfarancla da la varaldn 2.0 aa puada axibdlxndlr una Inatruceldn 
FIELD an varlaa lliwaa. La lonfltud atelaa dal raflacro vala J2767. la 
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INORGSO / SALXOA OATOS 


CADCldad aixlu d* cMpoa vala alradador da SOOO. 

QBT#b[ , raffia tro] 

POTfni , rafflatro] 

BICOUt#M , r«gl a C ro 

n.raflatro: laxp 

GET laa un raflacro da ua archlvo alaatorlo (randoa) . POT alaacana an 
forma aaAlofa un rafflatra aa ua archive da aata tlpe. So aata caao n 
aa al ndnaro (0 a 99) bajo al cual fua ablarco al archive randoa an la 
corraapondlanca Inatruccldn OPBN. B1 parffaetre epcienal refflatre 
eontlana un valor antra 1 y la cantldad da ra^troa dantro dal 
corraapoi^anta archlvo. Bata Indlca al otearo dal rafiatie a laar o 
alaacanar. SI no aa ti^lea rafflatro aa laa o ilaarana al prdKlao 
rafflacre corraapondlanca. 

Con RBCORO adlo aa flla al alffuianca ntearo da raglacro para POT o 
OOT.Oaapuda da RBCOM) 11.15. CBT fl laa per lo taoto al rmflatro 
Kro.15 . 

Atancldn: Un archive alanpra aa puada alarcar per «ai rmflatro mAa, 
avantualaanta cuando aa Incorpora dantre da un loop aa puadan afrafar 
varloa raflatroa. 

BJamplo 

OPEN *n'.ft.'\prlvado.r<te*.62 

P1EU> fl.2« AS nombrat.24 AS callat.2 AT{*eo(U).12 AS lufart 

Ptn 1S«1 TO 3 

INPOT ’Hoabra : *;nS 

INPOT *Calla: ';at 

INPOT 'Codlgo poatal : *;codt 

INPUT 'Uiffar : *;oS 

LSET nonbrat>nt 

LSOT eallat'at 

LSOT luffarS-oS 

POT fl.iX 

CLS 

HKXT IX 
CLOSE #1 

••> bi prlaar lufar aa abra ue archlvo randoa (aodo *K*} con una 
lonfltud da rafflacro da 62 bytaa. Con la laacruceldn FIELD aa 
Bubdivlda ua rmflatre an 2 caapoa da datoa eon cada uno 24 bytaa, 
un cavo con 2 bytaa y un caapo da datoa con 12 bytaa. La auna da 
loa caapoa (24*24*2*12) da nuavaaanta 62 ( o aaa la lonfltud da 
raglatro Indlcada an la InaCiMccldn 0PB(). A centlauacldn aa 
inffimaan loo datoa da dirmeelonaa y aa Incorponn a la liqularda 
da laa corraapoodlaotaa varlabloa. Botoncaa aa aacrlba to^ al 
raflacro on al archlvo. Bn varalonaa antarloraa da (FA-BASIC 
dlrla 2 AS codS an lufar da 2AT(*eodX) y luafo dalanta da POT: 

LSBT codS*HKlS(codX) y an forma oqulvalanta datrda da (BT:codS« 
CVI(codl). 
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IWStESO / SALXOA OATOS 


SJaaplo 


OPEM *R*,#l,*\priVAt.r<l>*.62 

FIGli) 11,24 AS D(»br«S.24 AS caIImS .2 AT(*codB).12 AS lu«»cS 


FOR !*•! HI 3 
OST ll.lS 


PRINT 
PRIKT 
PRINT 
PRINT 
PRINT 
NEXT IJ 


'Huaero da daeoa: *;iS 


"H. 
•Se 
'PL2 
•Ort 


noabrat 

callaS 

cod4 

lufart 


CLOSE II 


— > Aqul aa abra al arehlvo alaatorlo *PRIVAT_1.RDN* 
y aa laan 3 raclauoa. 

Coanalcacida eoa 1 m parlfArlCM 

Batrada y aallda byta a byta 

INP(a) 

l)fPT(a) 

0(TTC#]a.a(.b...] 

OOTT(a) 


o.a.b: laap 

INP laa tot byta da loa parlfArlcoa. La aapraaldn rwaarlca *n" puada 
aatair valoraa antra 0 y 5 ( var tabla aAa adalanta) o puada contanar 
un nuaaro da canal. La laatniccldn OUT tranaflara bytaa a loa 
parifdrlcoa. Ccntrsrlaaanta a vartlooaa 2.jui dal QFA-BASIC ahora aa 
puadan tranafarlr varloa bytaa a loa parlfdrlcoa o blao a un arcUvo. 

XNPT o OUT? raHaJa al aat^ da aotrada o da aallda da un paFlfArleo. 
Bn aata caao aa ratoma un ndaaro dlatlato da earo. al aparato 
Indlcado an n aatA llata. alao aa ratoma PALSB(O). 


a Abravlatura 

Sl^flcado 

0 LST: 

(llat) 

iMraaora 

1 AUX: 

(auxlllar) 

an aarla (RS 232) 

2 CON: 

(eooaola) 

taclado 

3 HU: 

(aualcal inatruaanta 
dlfltal incarfaca) 

Intarfaaa HIOX 

4 1KB: 

(Intalllaaot kayboard) 

Procaaador dal taclado 

9 VIO: 

(vldao) 

Monitor 

BJasploa 

PRINT AT(4,4): 
■INP(2| 

*0prlaa una taclat* 



— > b) la paatalla aa vlauallza un aanaaja y aapara qua aa pulaa 
una tacla (nuaaro da parlTaneo 2. taclado). 
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INORESO / SALIDA OATOS 


our 2.^7.69.13 

— > Bqulvkla a X« iMtrucclte CIS, borr* !• pantalla y flit «1 
cur*oren •! utrtmo Itqulardo ■(^•rlor con ayud* d* VTT-52* 

S«quens ClMT Scraan (aae>*B*). 

tatarfas* aarlada y BUI 

IRPA0XS 

UPHIPt 

Con ayuda da INPAUXS y da XHPKlfiS aa puadan laar coo (raa valocldad 
dacoa a travda dal intarfaaa aarla y HJPI. 

EJaaploa 

DO 

P!UKr INPAUXS: 

unp utrriL moussx 

”> Laa con fran rapldas todoa loa datoa dal buffar INPUT dal 

Incarfaaa aarla. Baca foraa da lAcraaar datoa aa aueho aia valot 
qua la lactura byta a byta a travda dal Intarfaaa. 

Inp auxS ■ ** 

WHILE INPT(l) 

Inp auxt • Inp aux( • CSM(INP(1)) 

WBTO ~ 

*~> Bata varlanta laa loa datoa aarcadaaanta ada daapaelo. 

Xatda y Joyatlck 

Musn 

MOSBT 

■OOSB 

■OOStaa.ay.ak 
ax.ay.ak: avar 

Laa inatruccionas HOUSDC, MOUSSY y MOUSBC haean pealbla aolleltar la 
poalcldn actual dal ratda y al aatado dal taelado dal ratdn. Con la 
Inatrueeldn MOUSB aa puadan raaualr aataa aollcltudaa. MOUSE da 
antoncaa laa coordanadaa actualaa dal ratdn anaxyayyanakal 
aatado dal taelado dal ratdn. La varlabla ak puada aaualr an aata caao 
loa valoraa 0 y 3> 

ak Tacla pulaada 

0 Hlncuna 

1 Itqularda 

2 Daracha 

3 Itqularda y daracha 

BJaaplo 

REPEAT 

IP NOUSQC'l 

PLOT HOUSBC.NOUSEy 
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INGRSO / SALIM DATQ6 


EMDIP 

UNTIL H0USS*2 
AEPBAT 

N0US8 nS.ayl.BkS 
IP 

PLOT nl.ayf 
BNDIF 

UNTIL akS-l 

■•> Ea •! loop RSEAT m tolleltw pootcl^ dol roUo jr oscacua tel 
taclate tel nUo. Solo olantna pulsa la tacla laqulatte tel 
ratte. aa dlbuja urt pun to la poalclte aa.ay. K 1 loop aa abaMtaa 
teipute te pulaar la taela terecba. Bo al aafundo loop aa puate 
dlbujar antoocaa eon la taela teracha tel ratte y abaiwlonar al 
profTtea eon la taela Izqularte. 


SBTMOIISI*B.ajr[,nk] 
aa.ay.ak: laiv 

La Inatrueclte SfTNOUSE paralca poaleloaar al curaor tel ratte a 
travte tel aaaajo tel procrau. Coo al parAaatro opclonal ak aa puate 
alaular pilaar o tejar te pulaar taia taela tel ratte. Bate vala 
laaantablaaanta aolo para al VSl, y no (o aolo raraa vaeaa) para al 
AES. 


EJaaplo 

FOR 1S«00 TO 300 
SEINOUSS II. IS 
PAUSE 2 

PLOT NOUSBC.NOUSBr 
SHOWN 
NB(T IS 

••> Daaplaaa al curaor tel ratte an foraa dlafonal a lo lacso te la 
paocalla fljando puatoa. 

B1S0 

SBOHM 

Loa eoaaadoa HIPEN y SHCMI coMCtan o teacooactao al curaor tel ratte. 
Cuaote aa llaaa uo coaanilo Alart u otro te la rutlna AES aa conacta al 
Ifual qua eon laa tnatrucclenaa qua aollcltao al ratte. 

Bn la aallte por al aenttor (PRINT) o an Inatrueelonaa te BrRflcoa 
(VDI.LIM'A) aa daa conacta al ratte. 

Con HIOBI aa puate bloquaar por aovtalanto (antra Inatrucciteaa) la 
raconaalte autonttlca tel curaor tel ratte. 

EJaaplo 

REPBAT 

IP Housac-i 

SHOWN 

ENCIF 


pAflna 121 



WA BASIC 3.0 
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IP MOUSEK>2 
HIDEM 
BfDIP 

UNTIL H0US£X>3 

— > Pulavtdo !• taclk Ixquiard* itel ratAn aa aaflala al curaor Aal 
racAn, daapuAa da pulaar la caela daracba daaaparaca da la pan* 
talla. Si aa pulaan aabaa taclaa alaultanaaaanta aa flnallaa al 
prograaa. 


STICf(p) 

SnUQip) 

B.p: laxp 

El ordanador ATARI ST dlapona da doa InMrfaaaa (porta) para la 
conaalAn dal ratAn y dal Joyatlck. Ea al port 0 aa puadan aollclcar 
coordanadaa dal ratAn y dal jeyatlek. an al pert 1 aelo aa puadan 
aelleltar datoa dal Joyatiek. 

La InatrucclAn STICK 0 conaeta un aodo, an al eual aa ratoman 
coordanadaa al ratdo daada al port 0. Para STICK 1 aa ratoman 
coordanadaa dal ratdn daada Port 0 y 1 . Horaalaanta no aa naeaaarlo al 
aaplao da la InatmcclAn STICK, ya qua cuando aa aollcltan laa 
coordan^aa dal ratdn aa ajacuta autanatlcananta un STICK 0 y cuando 
aa aollelta al joyatlck al STICK 1 . ft) procraaaa qua aolicitan 
Joyatlck dabarla pracadar a cada llaaado da funclonaa AES (Alart- 
boxaa,Dlalo(boxaa| un STICK 0. 

La fwtcldn STICK(p) alnra para aolleltar la poaiclte dal joyatlek. 
Para p*0 aa raporta la poalclAn dal Joyatick an Port 0, para p*l la 
dal Joyatick an Port 1. 


4-0-8 

/ I \ 

6 3 10 


Da Bcuardo con aato, Strlnc(p) Indlca al aatatua dal botdn da dlaparo 
(TKUB«pulaa<h].aliM> PALSB). 


EJanploa 
STICK 1 
REPEAT 

dlracelonX'SnCX ( 1 ) 
fuacei-snuod) 
SELECT dtraccloni 
CASE 4 

PRUrr 'Ixqularda* 
CASE 8 

PRINT 'daracha* 
CASE 2 

PRINT ’abajo* 
CASE 1 
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PRIKT •*rrib*“ 
BKCeBLECT 
UKTIL fUM°< 

WHILE STHiaU) 

wa<t) 


I B.p«r« . «iu» M 




pfUKT ’Opri** «1 botoft d* f»»»P> 
WHILE SIRIO(O) 

want 

REPEAT 

UKTIL STRIO(O) 

WHILE sreio(o) 

Hsn 

— > P*rM d*i •nwrlor. 


La lapraaora 


Paiw BO 

Upraaldo. Coi 


LPUnaapraatM 
LPOS(a) 

EAEDCOPT 

•xpnalte: aa«p o W o eo-blMcl«o da alloa 
x: avar. artuaa*w fletlclo 

to «« i^ulMtn.ccida PMKT. P«t, bo 

PRIKT USIHO *ato «i aa poalbla. 

*M1=. 1. 

CR an la lapraaora ( c oaparar P08(a)). 

*w“ ai*^l«**^**° n,aoa^harf^S^J^dal ala» 

to^. 

alauiCdnaaaMta laa taclaa *^**™*“ - - ■•••eclooan a la 

lapraaoraa Epaoo-no *'*' “ 

lAatmccldo HARDCOPY 

Blaaiploa 

LPRIKT 

LPRIKr 'ppuaba* 

PRIKr LPOS(x) 

— > Bn la lupraaota ( ^ an la 1»- 

la paacalla. 


(XBIOS(20>)- *“ ••*• “*® 
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POR 1X«20 TO 160 ?TB> 10 
CIRCU 320.200.1X 
NEXT IX 
HARDCOPY 

— > DlbujA clrculM coneBntrlcoa ui la pantalla 7 m vlauallM aata 
dlbujo an la lapraaora. 

Oaaaracldo da aoRldo 

SODMDkaa . laut . nota, oc taaa , vara 

SOUHMaa . lau t , #pa r . aa ra 

HAVIa tla . haali . for* , daraclda , vara 

kan, laut, nota.octava, vara, par, atls.luiall. fora, duraelOn: laap 

Con laa liiitrucelonaa SOUND 7 HAVE aa aanaja al gaoarador da tono da 
traa vocaa dal ATARI ST. Para alio aa uaa an SOUND eoao prlaar 
parBaatro la axpraatdn *kan*;qua Indlca al canal daaaado (1 a 3). R1 
voluaan (1 a 3) •• aaaaja a cravda dal aaiundo piriaatm *laut*. R1 
pariaaero *noea* 7 *octava* tlrvaa para fljar la u>ta (1 a 12) an la 
(ona da laa octavaa (1 a 6). 8n aata caao valat 

Hota ICCfDDIIP PfO Of A A# B 
NOaaro 112 3« 56 7 6 9 10 11 12 

Una varlanta da la Inatruecldo SOUND pacnlta Indlcar uo parlor da 
ondaa aadlanta la axpraaldn nuadrlca *par* , al cual daba pracadar el 
alabolo I, Bn aata caao *par* puada aauair loa valoraa antra 0 7 4095 
y aa puada calcular da la alfulanta aanara, al sa conoca la fracuancla 
an Harts: 

par«R0UND< 125000/ fracuancla) 

Aal aa puada (anarar da doa aanaraa dlfaraotaa al tono dal cinal A 
(440 Ka) : 

SOUND 1,15.10.4.250 
SOUND 1.15.«264.250 
SOUND 1.0.0. 0.0 

En aabaa varlantaa da la lAStniccldn alfua un tUtlao pardaatro *vara*: 
Indlca al Claapo an 1/50 aaftftdoa haata la alfulanta ajacucldn da la 
Inatruccldn ( 5 aagundoa an al aja^lo) . La ganaracldB da aonldo sa 
flnallsa con la InstruccldB SOUND 1.0. 0,0,0 ( coao an al aj«vla) 0 
con eualqular otrs tnacrucciOn SOUND, caao lo produea par aj. al 
alataaa oparaUvo al pulaaraa una tacla. Bata pulaaeldo da caela aa 
puada daaconactar ecai 

SPOKE UI464. BCLR(PBBX(tli464),0) 

Sa puada conactar con: 

SPOKE U464. BS8T(PEIR(U1464),0) 

La ganaracldn da tonoa da varlaa voces as lofra coo HAVE, bi *atla* aa 
suaan loa valoraa bit da laa traa vocaa 7 aa fljs Is fracuancla dal 
fonarador da auaurro: 
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IMSiBSO / SAI TtlA DATOS 


!■ Vos 1 
2- Vos 2 
4a Vos 3 

8m Susurra p«r* la prlaara vea. 

16- Suaurro para la sa<unda voa. 

32a Suaurro para la tarcara vos. 

A aaco aa puada suaar 256 vaoaa al pariodo dal caoarador da susurrp (0 
a 31) • So *buall* sa Indlca hit a bit Ifual qua an *stla*. qud vos aa 
ha da aodular eon lata curva da anvoltara. La foraa da la curva da 
anvoltura aa puada dataiwloar eoo 'foca* da la sl<ulanta aanara: 

0 a 3 ■ caa llaaarwnta. 

4 a 7 ■ craca llnaaraanca, aa latama^. 

8 > caa an sl«-saf 

9 • caa Unairaanta ( coaa 0 a 3) . 

10 * trlAnfulo. al co^anao caysato. 

11 « caa llaaataaoca. iirnrttll mwii fuarta. 

12 ■ craca an sl^sag. 

13 ■ craca llnaataanta, sa awtclsM. 

14 ■ trlAngulo, craca al coaliso. 

19 • craca llnaataanta. aa tatarr^^a (eoao 4 a 7). 

B1 pariodo da la curva da anvoltura aa dataralna coo 'duracidn*. 
an la lAatruccido SOUND, *vars* flja al Ua«io aataa da la prdslaa 
ajaeucldn da la Inatrueclda m 1/15 sacundos. 

Para SOUND y WAVS vala: Sa puadao a\a>rialr loa parAaatroa qua flguran 
al final da la Inatruccldn y qua aa aa daban aodlflcar. 

BJaaplo 

SOUND 1.15.1,4.20 
SOUND 2.15.4.4.20 
SOUND 3.19.8.4.20 
SOUND 7.7.0.65535.300 

-*-> Cob cada canal da tcno aa (nara ua tone y sa aodula eon ayuda da 
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CONTitOL Oa. PROCRANA 


7 ~ Coatrol d«l procraM 

&o MM capltulo M dlscuMa udM lu iaacruccionM par* *1 control 
da un profraaa. Coalenxa coo laa inatruceionaa da daalcldn qua 
poalbllltan una aJacuclCn condlelonal da inacrueclonM 
(IP.THBl.SLSB.BfDlP.BLSE IP). En aataa Inatrucclonaa aa anallca 
unlctaanU, al una daMrala^ ccndlcldn Iddca aa vardadara o falM. 

AdaaAa axlaMn laa InatFucclonM da daalclonaa adlciplaa. aa^aranMdaa 
con laa auMrlomanM aanclcnadaa (SBLBCT,CASB,D8PAin.T,a<DS8LGcr, 
COKT). Bn Mtaa tnacrucclonaa al criMrlo da daalcldn no aolo puada 
aar vardadaro o falao alno qvia taabldn puada aaualr valoraa 
cualeaqxilara, franu a lea cualaa puada raacclonar aalactlvaaanM. 

El alfulaoM apartado praaaota laa lAatmcclonaa da MCruccuraa da 
rapaclcdn (loopa) dal OPA-BASIC. laa cualM poalbllltan la ajacucldn 
rapatlda clarcaa parcaa dal prefi'aaa. U QPA-BAS1C3-0 dlapona da 
una tran eantldad da aacoa cipoa da loopa {FOR TO STEP HBCT. REPEAT 
umL. OO LOOP o blan WtHOOf. OO WLS. DO UKTIL. UUP WOLE. UUP 
UKTIL. BUT IP). 

Para la profranaeldn aatruccurada as min laportanca la poalbllldad da 
foraacldn da aubprofranaa . Con laa InatrucclonM PROCBMJRB, OOSUB (t) 
r RETUm o blM ENBSU8 aa puadan craar rwiclanaa nuavaa an foraa da 
aubrucinaa. TMibldn as poalbla la craacldn da funclonaa. Con las 
Inacrucelonas DBPPN y PN sa puadan dlaaflar funclonaa. qvia tlaoan al 
cardcMr da fdnulas. Otras poslbllldadas ado ads flaslblM rMultan 
da las Inatrucclonaa FUNCTION, S<DPtAC y RESULT, coo las cualaa sa 
puadan craar aubprocranaa eoaplatoa, qua davualvan un valor. 

Bo MM apartado taabldn aa traM la aAOnlatraelOn da varlablas an 
aubrutlAM. Aqul axlaM an prlaar lufar la poalbllldad da unlflcar 
varlablM localM (LOCAL) . qua solo aon conocldaa an una parM del 
procraaa. Lh varlablM sa puadan tranafarlr a subrutlnas an calldad 
da valor (call by value). Con la Inatrucelte VAR tanbldn sa puadan 
tranafarlr por al alanaa (call by rafaranca), da tal aanara qua la 
aubrutlna laa puada aodlflcar, aln qua sa daba uaar au ooabra flobal 
da variable. 

En al apartado sobra raalflcaclooM eondlelenadaa a un sucaso aa 
traM da dos aucasos Mpaclflcoa dal OPA-BASIC. K1 prlaaro as la 
pulaaeldn alaultdnaa da 1m McIm Control- . AlMmata- y da la taela 
Shift Isquiotda, lo qua notualaanM llava a la laMmipclCn dal 
procraaa. El sacundo sucaao m la aparlelte da tat error an la 
ajacucldn dal profraM. Aqul sa anallsan 1m poslbllldadM para la 
procraaacldn da una cutlna da aanjo da arrores. 

En al OPA-EASIC 3-0 as poalbla llaaar una subrvtlna dMpuds da 
tranacurrldo un dataralnado tlaapo. Con mm fin m uaaa 1m 
I nstrueelonM EVERY y APTS. • 

Al final da mm capltulo sa praaantan la blfurcacldo Incondlclonal 
GOTO. 1m InatrucclonM da Mpara PAUSE y DELAY y dlfataoMs 
poslbllldadM da latarrupcldn dal procraaa (QUIT, SYSIBI. DID. EDIT, 
HEN. STOP). 

El dltlao apartado traM da 1m lastiucelonM para la suparvlaldn da 
la ajacucldn dal procraaa (TRON, 1ROFP, IRON proc. TRACES OW. 
ERRS, ERROR) . 
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CCamiOL DEL PftOGBAHA 


iMtruceloaas de dMldta 

IRwdCTHEM] 

ELSE 

EVDIP 


b«d: b«xp 

Con «*to« OMMViM M ACtlvao una o varlu Inatrucclonaa ilaapr* y 
cuando aa cvapla una coodlclda Idflca. El alfulanta aja^lo IluatrarA 
Aato: 

IP a>l ‘niEM 

PRIKT *a M Ifual a 1* 

b>2 

ENDIF 

b aata caao a>l aa la cocidlelba Idglca. Laa Inatnicclonaa an laa 
llnaaa aoua IF y ELSE able aa ajaeucan. euando la eondlcldn Idglea aa 
clarea. Cuando ao aa elarta. aa cantlnua la ajacucldn dal procraaa 
datria da la palabra BISIP da la Inauucclte. El coaando THEN no aa 
Clana an cuaota, a aaa taablAn aa aufleianta la alfulanM fomilacldn: 

IP aal an lufar da IP a«l THSI 

La aifulanca conatrueclda aa aliQ aAa coaplaja: 

IP a«l 

PRINT *a aa ifual a 1’ 

ELSE 

PRIKT ' a no aa Ifual a 1.* 

PRINT ’ alno Ifual *;a 
ENDIF 

Bi aaca caao aa ajacutaa laa tnacrucclonaa antra IP y ELSE, cuando la 
condlctdo Idclea datrAa da IP aa elarta. A contlnuacldo, al pcofraaa 
proaifua daeraa dal EKDIP. 

Si no aa cuaplld la condlcldn IP, antoncaa aa accivan laa 
inatrucclonaa antra ELSE y ENSIP. A continuacidn, aa proalgua la 
ajacucldn dal prograaa dacrda da BIDIF. Cualquiar axpraaldn dlatlnta 
da caro aa Idflcananta vardadam. 

BJanplo: 

x«l 
IP X 

PRINT *K aa vardadaro* 
aiDip 
INPUT y 

IP x*9 OR OOfi(y) 

PRINT *y aa UD ntearo lapar* 

ELSE 

PRINT *y aa uo oOaaro par* 

BIDIF 

"> Prlaaro aparaca al taxto 'x at vardadaro'. Luago aa aollclta uo 
niiaaro. Ya qua x no puada aar 9. aa vlauallta al taxto 'y aa un nOaaco 
lapar' . al Uatad ha infraaado ira odaaro iJ^ar. Da lo contrarlo aa 
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•scrlb* 'y M un Dtoaro par' pebr* •! aonltor. 

ELSE IFbad 
bed: bexp 

La Inatruecidn ELSE IP haca poalbla rapraaancar eon aayor clarldad 
Inatruecionaa IP ancaaiUadae. El algulanta ajaaplo raacclona a la 
pulaaeldo da taclaa. Coo S.L o B aa Ilua a la anotacido qua aa uaa 
para rutlnaa da alaacanaalaBto, da earta o da incraao da tecoa. 
todoa loa •* — eaaoa apara ea al taxto ‘Coaande daaeenoeldo’ . La 
varalAn ancaalllada da aata ajavlo aa la alculanca: 

B1 aaplao da ELSE IP produce un llatado ada corto con aanoa 
daaplaaaalantoa dal taxto : 

La ajacucldn da talaa aacruetuna dal procraaa aa Hava a cabo da 
Bcuardo con al alqulanta patrdn: 

Si aa cu^la la condlclte datria da IP (aqui tS^'L*) antoncaa aa 
ajacutao laa Inatruecionaa antra IP y al aifulanta ELSE IP (aqul 
'Carfir* PRIKT) y luafo aa blfurca datria da la inatruecldn ENDIF. 

SI una da laa eondlclonaa dau^ da laa inatrucelonaa ELSE IP aa 
vardadara. antoncaa aa ajacutao todaa laa Inatrucelooaa haata al 
prdxlao OSE. ELSE IP e BIDIP ( al no axlata ELSE) y a contlAuaeldo aa 
aalta a la Inatiuccldn EHIP, 

SI nl la eondlcldn datria da IF nl una Inatruccldn datria da ELSE IP 
aon vardadaraa, antoncaa aa ajaeutan laa Inatiucelonaa antra ELSE y 
SNDIP ( Ml la aadlda an qua axlata QSB). 

Bjaaplo: var arrlba. 


BlPurcaclosaa sAltlplaa 
ONxOOSUBproel , prec2 .... 
x: laxp 

proel, proc2: noabraa da procadlnlantoa. aln pariaatroa 

Bata Inatruccldn aa blfurca haata al x-alao proeadlnlanto qua flfura 
an la llata datria da <X>*$UB Bi aata caao x aa una axpraaldn 
nuadrlca. cuyoa lucaraa datria da la coaa ( an la aadlda an qua 
axlatao) aa liporao. Cuando x aa aaoor qua 1 o aayor qua la cantldad 
da noabraa da procadlalantaa datria da ODSUB. no aa Umm nlncuna 
aubnjtlna. Daapuia da accadar a uaa aubnitlna aa oontlnda al prograsa 
datria da ON x 00SU8. 

Sn aataa Inatruecionaa oo aa puadan dar partoatroa a loa 

procadlalan toa . 

Bjaaplo: 

«“3 

OH X OeSVB procl.proc2.ptoc3 
x*l 

ON x«l OOSUB proel, proc2.ptec3.prcc4 
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--> Prlaare m llama ml procadlmlanta proc3i lua^e ml pitxradlmlanto 
proc2. 

SELECT* 

CASSy[TOs] o CASBy[. »....] 

CASE TOy 

CAse/ro 

DEPAULT 

EKDSELECT 

CONT 


M,y,z: itnf 0 conacanu atrlrtf con una lottfleud aAxlaa da 4 
caractaraa 

La Inatrueelde SELECT hace poalbla la blfurcaldn dapandlendo dal valor 
da la aiproaidn auairlca x. El alfulanta ajaaplo alcva para lluatrar 
la aatnictura dal pr«ci«A* raaulcanca: 

BJeaplo: 

x>0 

SELECT x*2 
CASE 1 

PRINT *x at l|ual a 1* 

CASE 2 TO 4 

PUNT *x at ifual a 2.3 o 4* 

CASE 5.6 

PRINT *x at ifual a 5 o 6* 

DEFAULT 

PRINT *1 00 aa Ifual a 1.2. 3.4, 5 o 6* 

BCDSa.ECT 

"> Ba la pantalla aa vlauallza 'x aa Ifual a 2.3 o 4' . 

Prlaaro aa dataralna la axpraalOn nuafrlca dacria da SELECT, qua aa la 
condlclte da blfurcacldn (aqul Ifual a 2). Luafo aa ravlaan da arrlba 
para abajo laa Inatrueclonaa CASE y aa coapruaba al datrda da allaa aa 
ancuaotra al valor actual da la condlcldn da blfurcacldn. Bn aata 
ajaaplo flfura aolo 1 dacria da la prlaara lAatrueeldn CASB.Coao la 
coodicldo da blfurcacldn aa Ifual 2, al prograaa aalca al alfulaaca 
CASE. 

Dacria dal aafundo CASE dlca '2 TO 4'. Baca condlcldn aa aatlafaca. 
cuando al crltarlo da blfurcacldn dacria da SO.ECT aauaa valoraa antra 
2 y 4 (Inclualva). Bn al caao antarlor aa produce anconcaa la 
ajacucldn da laa Inatrueclonaa antra al aagundo y tarcar CASE. Luago 
aa contlnda la ajacueldn dal profraaa dacria dal coaando EKD-SELBCT. 

Dacria dal tarcar CASE aa puada raconocar ocra varlanta da la 
Indlcacldn da loa poalbla# valoraa dal crltarlo SELECT. Loa valoraa 
daaaadoa .aapartdoa por coana, aa anuaarin alll an una llaca. 

SI no aati Indlcada la axpraaldn actual dal crltarlo da raalflcacldn 
dacria da nlngUn CASS, anconcaa aa ajacutan laa inatrueclonaa antra 
DEFAULT y END-SELECT, al axlsca taia Inacruecldn DEFAULT. Bn lufir da 
DEFAULT CMdlin aa puada Indlcar OTHERWISE, lo qua al Intdrprata 
raanplaaa autoniclcaaanta por DEFAULT. 

Datria da CASE ix> aolo puadan flfurar conataotaa nunirlcaa alno 
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taablAn con»tant«8 String con un* longltud l A xl ^ a de cuatro 
caractarea. El atrlng dotrAa d* CASE puada contanar coao a to la o cuatro 
caracteraa an asta caao. Cuando aolo aa Indica un cartetar aa uaa su 
valor ASCII COBO crltarlo da blfureacldn. Si aa Indlcan doa 
caracteraa, aata valor se calcula da la slguianta aaikara: 

Valor ASCII dal priaar carActar ♦ 255 * valor ASCII dal aagundo 
carActar. Da la alsaa aanara aa proceda euando aa indlcan tree o 
cuatro caracteraa. 

EJaaplo: 

rauat'PALSE 

REPEAT 

tasteX*inp(2) 

SELECT taata} 

CASE "a' TO 

PRIOT ’Introdujo la latra paquada ■♦chrUtaataX)*".* 

CASE "A" TO *Z“ 

PRIMT “Introdujo la latra granda “•chr*( taataX)*" 

CASE 27 

rauaf'TRUE !Pin da prograaa por aadlo da <Eac> 

DEFAULT 

PRINT “Puled una latra Incorracta 1“ 

ENDSELECT 
UNTIL raual 

--> D«ntro da una aatructura da rapatlcldn aa coapneba $1 ha eldo 
aetlvado al taclado. y da acuardo con la tacla pulaada aa raalflca o 
aa raporta al eorraapcmdianta carActar o aparace al aanaaja da un 
ingraao Incorrecto da datoa. Coao crltarlo de intarrupcldn dal loop aa 
pulaa la tacla Eac. 

El algulanca ajaaplo iluatra al algniricado da la Inatruccldn COtfT, la 
cual aolo tlana iaportancla, al flgura antaa da una inatruccldn CASE 0 
D^AULT. Bata Inatruccldn CONT no aa daba confundlr con al coaando da 
Igual noabra para volvar a Incorporar un prograaa Intarruapldo. 

EJaaplo; 

x*l 

SELECT X 
CASE 1 

PRINT “X ee Igual a 1“ 

CONT 
CASE 2 

PRINT “X as Igual a 2* 

CASE 1,3 

PRINT “X aa Igual a 3* 

DEFAULT 

PRUfT “x no aa Igual a 1.2 y 3* 

QIDSELECT 

— >En al aonltor aa vlauallza 'x aa Igual a 1' y ’x aa igual a 2’. 

El coaando CONT haca qua sa saltaa la Inatruccldn CASE o DffAULT qua 
flgura datrAs da Al. aata ejeaplo. el valor datrAa da la prlaera 
inatruccldn CASE as Igual a la condleldn da raalflcacldn. 

Por lo tanto. aa ajacuta la inatniccldn PRINT "x aa igual a 1*. A 
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conclnuaclte siiu* tut* Instmcelte CONT, qua Mltaa !• li&M CASS 3. a 
pesar da qua no aa cuapla la condlclda da raalflcacldn. o aaa qua aa 
dlfaranca da uim. EaCO lleva a qua taablta aa ajacuea la Inacruccldn 
PRINT *x ea i(ual 2*. Cuaodo aa alcanaa la alfulaata Ixiatrucclte CASB 
o DEFAULT ta aalta datrda da BHDSELGCT. Eato taablta ocurra, cuando ( 
coao acA) datria da aata CASS aa Indlca la axpraaidn da la condleldn 
da blfurcaclta . 

Ejaapio: 

SELECT INP(2) 

CASE "a' TO 

PRINT *a haata (* 

DEFAULT 

PRINT ’dafault* 

ENDSELECT 

**> Cuaodo pulaa una da laa taclaa a.b.c.d.a.f o g, aa vlauallaa al 
Caato 'a a f' , cuando pulaa otra tacla ( no taclaa da conautacita del 
taclado) aparaca 'dafault'. 

En CASB aa puadan eoablnar laa dlfareotaa poalbllldadaa , o aaa no aa 
nacaaarle aacrlblr: 

sascT U 

CASB *a" TO *a* 

CONT 

CASB "A" TO “Z* 

CONT 

CASE ‘aa*. ■oa". "ua*. *aa*. •Aa". *0a*. *Ua- 

PRINT "OK" 

QOSELECT 

aino qua taablta aleanza coo aacrlblr ; 

SELECT aS 

CASB "a" TO "2". "A* TO "Z*. "aa". "oa". "ua",... 

Batructuraa da rapacielta o loopa 


FOR. TO, STEP. NEXT 
RffSAT. UNTIL 
HKILB. WEND 

DO. LOOP. DO WHILE. DO UNTIL. LOOP WHILE. LOOP UNTIL 
EXIT IF 

El OFA-BASIC 3-0 dlapooa da una caocldad auy franda da Upoa da 
aatruccuraa da rapatlclta o loopa. Noraalaanta aa dlatlnfua antra 
aatructuraa da rapatlclta da rechazo y da i>o racbazo. Laa aatruccuraa 
da rapatlcta qua ravlaan la eoodlelta da latamipclta aotaa da la 
antrada al loop, ** llaaao da racbazo. alantraa qua aquallaa qua la 
ravlaan al final da la aatruccura da rapatlclta aa llaaoi da no 
rachazo. En conaacuancla. loa lota* da no racbazo aa daban eorrar al 
aanoa una vaa. 

II OFA-BASIC conoca an prlaar lufar a doa aatructuraa da no rachazo 
convenclonalaa. al loop FOR-MBCT y al REPSAT-UNTIL. Ita carcar tlpo 
aattadar da aatructuraa da rapatlclta aa al loop da racbazo WHILE-END. 
Coao cuarco tlpo da aatruccura da rapatlclta aa dlapona da 0O*LOOP. 
Baca tlpo ta raalldad aolo aa uca aatruccura da rapatlclta inflnlta 
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■in condlcldn de Inurrupclte. Bwqu* an al OFA'BASIC sa puada apltcar 
an fona ■uy varlabla. Tanto daCria de DO coae datrda da LOOP puadan 
flgurar laa aapllacionaa UHILB y UKTXL. da tal nanara qua sa puadan 
conatruir aatruccuraa da rapaciclOn. qua al coalenao y al final dal 
loop aollcltan una eondleldn Idflca. 

cada una da aacaa aacructuraa da rapatlcldn aa puadan Incorporar 
adeaAa cualquiar cantldad da condielonaa da Intamp^do (EXIT IP). 

FORl'aTOaCSnFa] 

( Inatrueclonaa) 

HEXTl 

DOtAfTO 

1 : avar 

a. a, a: aaxp 

La aaeructura da rapatlcldn P0R*HEXT ( taabldn llaaado loop eontador) 
alrva para ajacutar rapatldaa vacaa un frupe da aantanelaa ( cuarpo 
dal loop) quo flgura antra laa palabraa FOR y NBCT. A la variable 1. 
qua aa uaa eoao eontador. aa la aalfna prlaaro al valor Inlclal a 
Luaso aa ravlaan laa aantanelaa dal cuarpo dal loop haata qua aa 
alcanca NBCT. Alll aa Incraaanta la variable 1 an una cantldad Ifual 
al valor qua arroja a. qua flfura a contlnuacldn da la cltuaula STff. 
SI aa onlta la cltuaula ST? an un loop POR. ..HS(T, antoncaa aa 
aatialr* da qua aa crata da un aalto unltarlo, o aaa Ahora aa 

anallia . al 1 aupard al valor a. SI aata aa al caao aa tranaflara al 
control dal procraaa a la aantancla alfulanta al HEXT. caao eontrarlo 
aa vualva a c oaanaar con la prlaara aantancla dal cuarpo dal loop. 
Eata procaao aa raplta haata qua 1 aupara a a. 

Una conaacuancla da aata ajacucldn aa qua daaputa da abandonar la 
aatructura da rapatlcldn 1 alanpra aa l(ual al prlaar valor qua aupard 
al crltarlo da Intarrupcldn. B1 contanldo dal loop raR...NBXT aa daba 
paaar al aanoa una vax. 

En lufar dal valor dal ST? ■■•! aa puada tiaar taabltn la Inattpceldn 
DOWNTD an vaz da TO. STEP no aa puada uaar aia en ralaeldn eon DOWNTO. 

Laa varlabloa qua aa uaan cono eontador dabarlan aar varlablaa 
antaraa, ya qua laa aantanelaa dal loop aa alacutan antoncaa con aayor 
valocldad qua con varlablaa do punto flotanta. Bate naturalaanta no ■■ 
poalbla eon atapa fracclonarloa . 

£n lufar da la palabra HSCT aafulda da la varlabla uaada cono eontador 
(por.aj.ll) aa puada aaerlblr caabldn andfor IS. lo qua al Intdrprata 
raaaplaza por NEXT 1S> 

BJanploa: 

POR 1-1 TO 10 
PHIHT 1’ 

HEXT 1 

FOR 1—1 DOWnO -10 
PRIKT V 
HEXT 1 

— > En la pancalla se vlauallzan loa niiaaroa 
1 2 3 '• 5 6 7 8 9 10 -1 -2 -3 -5 '6 -7 -« *9 -10 


ptglna 132 



OFA BASIC 3.0 


CONTROL DEL PROQRAHA 


FOR J«l TO LE»(aS) STS> 2 
PRIHT HIDStaS.J.Di 
NBcr j 

En Im pantalla aparece 'Pnieba'. 


RB>EAT 

(inacrucclonaa) 

UNTILbM) 

bad; baxp 

Coo REPEAT - UVTIL bed ae enaarca uaa cancidad de Inatruccionaa, qua 
aa ejacutan haata qua la condlcldn Ibflca bad aa vardadara. 

Cuando aa alcanza la inatruccidn R^EAT an el prograaa, aa ajacutan 
laa aantanclaa qua la ai(uan haata qua aa alcanza UNTIL. Encancea aa 
ajtaalna, al la cendleldn Idflea bad qua figure datrAa da UNTIL aa 
vardadara. SI aa aata al eaao, aa ejacutan laa aantanclaa qua la 
alguan a UNTIL. Paro al bad da falao (0), la ejacucldn dal profraaa 
aalta nuavaaanta a la inatnieeldn REPEAT. 

Laa Inatmcclonaa antra REPEAT y UNTIL aa ajacutan por lo aanoa una 
vaz, an la aadlda an qua no aa abandonan con SCIT o OOTO. $a trata da 
un loop da no rachazo. 

En lugar de UNTIL bad taablAn aa puada aacrlbir ENDREPEAT bad, lo qua 
al Intdrpraca raaaplaza autoadticaaanta por UNTIL. 

EJaaploa: 


REPEAT 
UNTIL HOUSEX 

Eapara qua aa pulaa una tacla del ratOn. 

l-l 

REPEAT 
INC 1 
J-SQR(l) 

UNTIL OlO and FRAC(J)>0 
PRINT 1 

• En la pantalla aa vlauallza al niiaero 16, 

WHlLEbad 
( InaciMcclonaa ) 

wsm 


bad: baxp 

Laa Inacrucclmaa WHILE y WEND puadan Inclulr lai grupo da aantanclaa 
qua aa ejacutan alentraa qua la condlclda Idgica bad sea vardadara. 
Cuando al OPA-BASIC aa tope eon la inatruccidn WHILE, aa analiza la 
condlcidn Idgica qua la algua. SI aa vardadara, aa ejacutan laa 
aantanclaa antra WHILE y WEND. Cuando aa alcanza WEND, al pregrana 
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vu«lve ■ a&ltar a WHILE y al clclo vualv* a coaanzar. haata qua bad 
aea false. En liifar da la Instruccldn WQfl) taablAn sa puada aacrlblr 
QfDWHlLE. lo qua el intarprata raasplaza per VEND. 

EJeaplo: 

WHILE INKEYS*" 

PLOT HOUSEX.NOUSEV 
WQfl) 

--> Dlbujar con al ratbo hasta qua sa pulse una tacla. Si ys figure ua 
carActar an al buffer del Mclado, no sa flja un punto. 

DO 

(Instrueelonas) 

LOOP 

Las Inacrucclonaa DO LOOP producan una sstructura da rapatlcldn 
infinite. El prograaa ajacuta las sancaoclas qua figuran antra DO y 
L0<^ y vuelva a saltar al coaando Do cuando alcanza LOOP. 

La aatruetura da rapatlcldn sa puada abandonar unlcaaoota con EXIT IF. 
OOTO o con Instruccionea para flnallsar progrsaas. Ba lugar da la 
inatruecldn LOOP sa puada aacrlblr taablAn B<DD0. lo quo al IncOrprata 
raaaplasa por LF. 

BJaaplo: 

DEFPia 1.1.4 
DO 

MOUSE aa.ay.ak 
IF ok 

PBOA BX.By.BX*25>ay*l$ 

Q<01F 

LOOP 

— >Cuando sa pulsan taclaa dal ratOn.dlbuJa ractAnguloa rallanos an la 
posicion actual dal cursor dal ratOn. 

DO HHILEbad 
DO UtfriLbad 
LOOP 

LOOP U?fTILbad 
bad: baxp 

Las Instrucclooas 00 y LOOP sa puadan aapllar agregando IBfTIL y WHILE. 
El ari..abasaaiaaco dal loop DO WHILE llava a qua al latarlor dal loop 
sa ejacuta unlcaaanta aiantras qua bad sea vardadaro. Cuando al loop 
coBlanaa con DO UNTIL, aolo aa accede cuando la coodlcldn bad no aa 
cui^la. 

LOOP WHILE llava a qua al control dal profraaa ratoma a DO. aiantras 
qua bad as vardadaro. Para LOOP UNTIL vela, qua bad daba ser false, 
para qua aa vuelva a saltar al coalanso dal loop. 

Por aso las condlclonaa son da rachazo an DO y da no rachaso en LOOP. 
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DO WKU£ b«d MllLE bed 

equiv&le a 

LOOP WQ4D 

DO REPEAT 


LOOP UITTIL UOTIL bed 

Las varlantes de la InsCruccioiws DO, DO WHILE y X UNTIL se pueden 
coabinar de cualquler aanera con LOOP, LOOPWHILE y LOOPUNTIL, de tal 
■anera que con aecas Instrucclonei se pueden construlr an total nueve 
tlpos de loops. 

EJeaplos: 

X 

LXP UNTIL HOUSac 

Espera la pulsacldn de tina tecla del ratdn. 

K UNTIL M0USQ(«a 
X WHILE HOUSB'l 

LINE 0.O,H0USEX.H0USEtr 
LXP 

LOOP UNTIL INKBYI»‘a* 

•') Dibuja Itneaa cuando se eantlene oprlalda la cede Izqulerda del 
racdn. 

X UNTIL SOF(ll) 

INPUT fl.aS 
LOOP 


Lee secuenclalaente cadenas de caracteres del canal 1. haata que 
alcanza el final del arcnivo. 

WHILE NOT E0F(#1) 

INPUT fl.aS 
WBfl) 

-*> La constmccldn con WHILE WEND es aAs lenta, ys qua adeaas se 
necealta HOT. 

EXIT IFbed 

bed: bexp 

Con EXIT IF se puede aaltar de una eatructura de repeciclOn. cuando se 
cuaple la condlclOo de Bool. El tlpo de loop se puede eleglr 
llbreaante en esce caso. 

Contrarlaaente a verslooea anterlores de QPA-BASIC EXITIF taebldn es 
poslble dentro de IP-BNDIP y de SSI . EC T-ENPS ELECT. 
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Bjeaplo: 

DO 

EXIT IP MOUSEX 
LOOP 
REPEAT 

EXIT IP imCEY$»’x" 

UNTIL PALSB 

••> Plnallzft «I profrau. «1 priaero aa pulsa una tecla del ratdn y 
luefo la tecla 'x' . 

Procedlalentos y funciooes 

En el OPA-BASIC }.0. Igual qua eo cualquler lenguaje de prosreaacidn 
Bodemo, loa subprograaea llevan noabres. A aatoa aubprosraaaa ae 
pueden tranaPerir parAaetros. taablta ae pueden apllcar aobre 
dlferencaa varlablea en dlatlntoa llaaadoa a travAa de parAaetraa 

VAR. 

Se pueda cranaferir el valor de la variable coao taablin la variable 
alaaa (VAR), el aefundo eaao ae puede aodlficar la variable da 
cranaferencia a cravAa del procedlaiento. 0 aea exiace un 'call by 
value' y un 'call by reference*. 

TaabiAn es poaible el uao de variablee localea, o aea no hay qua toner 
conaideracidn de poaiblea eollaionea de noabrea eon loa procedlaientoa 
0 funcionea qua llaean. 

Con DEFFN ae pueden dafinlr funcionea do una linea, qua luago se 
activan por un noabre con PK. TaabiAn son poaiblea funcionea de variaa 
lineaa (FUNCTION). Bataa solo repreaentan una foraa especial de loa 
procedlaientoa y retoman un reaultado ( a craves de RETURN) . 

a0SUBproc[(parl,par2, . . . )] 

PROCEDUREproc [ ( varl . var2 ....}] 

RETURN 

proei noabre del pro c edi a i en to 
parl,par2: sexp, aexp 
varl,var2: aver, avar 

Entre laa palabraa PROCBHJRE y RETURN flguran las sentencias de un 
subprograaa. DecrAs de PROCEDURE figure el noabre del aubprograaa y 
eventualaente lA lleta de variablee qua ae han de reclblr. Un 
PROCEDURE ae llaae con la Indlcacldn au noabre al coalanso de le 
linee. eventualiMnte seguldo de loa correapondlontes parAaacros qua ae 
fijan entre parAnceala. Para llustrar qua no ae trees de instrucclonea 
del OFA-BASIC. pueden ser precedldoa del alabolo “#* o de le palabra 
clave 'OOSUB'. Eeto es reglaaencerlo cuando axlacen poalbllldadaa da 
confusion con instrucclonea del OPA-BASIC ( por #1. ®stop. #ree). 

Los parAeeCroa de cranaferencia pueden aar Constances, variablss y 
expreaionea. De variables ae pueden trenaferir no solo loa valorea 
sino taablAn lea verlables alBeas (ver VAR) . 

Cuando durante la eJecuelOn dal prograaa ae alcanza le InstrucclOn 
RETURN, el progreee selte a la sentwtcla quo figure detrAa de OOSUB. 
En luger de le palabra PROCEDURE taeblAn se pueda eacriblr SUB. en 
luger de RETURN taablAn B4DPR0C o QfDSUB. Eaco lo replete •! 
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lAtArprate por si alsao. 

BJeaplos : 

QOSUB slo«_pclnc('** Msnual do ••■) 

«slo« _prlinC« GFA-BASIC 3-0 •’) 
slow_prlnt( •GPA-SVSTOrreCMHIK* ) 

PROCEDURE slCM _priAt(CS) 

LOCAL IS 

FOR 1S«1 TO LEN(cS) 

PRIKT MIDS(tS,lS.l}: 

PAUSE 3 
NEXT IS 
PRINT 
RETURN 

-*> La sallda lenca. carActar por carActer, da un string. 
a-8 

idrlcte_wurzel (a) 

PRINT a 

PROCEZ)UR£ drltce wurzeKVAR a) 

*•**(1/3) 

RETURN 

— > Calcula la rals cilblca da 8 y an la pantalla se visuallza 2. 
LOCALvarl,( ,var2. var3. • • • } 
varl.var2.var3: avar.svar 

Con la instruccldn LOCAL as poslbla llaltar al rango da valldaz da 
varlablas. Las variables presantadas a contlnuaclAn da LOCAL solo 
tianan valldaz dantro del procadlalento an el qua Tlgura LOCAL asl 
coao an todos los aubprograaas llaaadoa por esta procedlalento. 

DatrAs da LOCAL puaden flgurar varlablas. qua tlanen valldaz an al 
prograaa principal, e sea qua tianan valldaz global. En la subrutlna 
no sa pueda accedar a astas variables, paro satAn a dlsposlcldn an 
Tone Inaltarada cuando as abandona al procedlalento. 

Laa variables da transfarencia da un procadlalento o da una funcldn 
aleapre son locales . 

Bjsaplo: 

x>2 

OOSUB teat 
PRUfT s.y 

PROCEDURE test 
LOCAL x.y 

*•3 

y.4 

RSniRN 

— > En la pantalla se vlsualizan los miaeros 2 y 0. 
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0funk[ (pari ,par2. ■ . . ) ] 
FUNCTIOHfunk((varl,var2, . . . 
RETURNazp 
0<DFUNC 


funk: noabra da la funcldn 

parl,par2: aaxp, aaxp 

varl,var2: avar.avar 

axp: aaKp, aaxp 

Encra laa palabraa FTWCTION y ENDFUNC ftfurao laa aaotanclaa da ma 
aubrutlna (alallar a PROCSURE). Datria da FVHCnOH flfura al noibra 
da la aubrucioa y avantualaanca la llata da laa varlablaa a 
tranaferlr. Sa accada a una aubnicljia Indlcando la arroba o algno at0 
o PN y al noabra da la funcldn. Luafo alfua avantualaaftta una llata da 
partaacros. 

Loa pardaatroa da tranafaraneta puaden aar eonatantaa, varlablaa y 
axpraalonei. Da varlablaa aa puadan tranafarlr no solo valoraa, alno 
taabiao las varlablaa alsaat ( var VAR). 

Cuando durante la ajacucldn dal profraaa sa alcanas la Instruceldn 
RCnnW. sa Incorpora al valor calculado por la funcldn an al lu^ar an 

qua sa llaaa a la alaaa. 

En una funcldn sa pueda apllcar varlas voces REIVRN , con IP o alfo 
paraeldo, paro no aacA paraltldo flnallzar una funcldn sin RETURN ( 
con an>njNC) . 

Un slabolo S al final dal noabra do una funcldn caractarlza funclonas 
con rasultado atrlnf. 

EJaoplo: 

flS««fak_loop{ 15 ) 
f rl>4f ak^rakurs ( 10 ) 

PRINT 'Itaracldn; fakU5) • *:riX 
PRINT 'Racursidn: fakUO) • *:fri( 

FUNCTION fak_loop(fS) 

*■1 

FOR JJ.l TO fX 
NIL M.JX 
NEXT J* 
rehtih V 
enofonc 

FUNCTION fak rakurs(fl) 

IF r%<2 
RETURN 1 
B.SB 

RLTVRN fX*«fak rakura(PRED(fX)) 

ENDIF 

ENDFWC 

--> Las facultadas da 10 y 13 ae calculan dentco dal loop y una vas an 
foraa recursive. 
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DEFmfunc[ (xl,x2. . . . )]«expr 
FNfunc[(yly2....)l 

func.xl.x2: vor 

expr,yl,y2: exp 

La lnatruccl6n DSFm paralce deflnlr funclonea <le una sola llnea. La 
dePlnlcido da esta funcidn flgura en la expr«sl6n expr la qua puede 
rendlr tanto una axpraaidn nuatrica coao un string. La funcl6n se 
llaaa daapuds da su daflalcldn o bian coo FN func o blen con la arroba 
o slgno at^. 

Laa variables contanldaa an la definlcldn da la Aincidn sa cransfleran 
COBO parSaacroa. Para aso, en la daflnlcldn da la funcldn sa snotan 
loa noabras da laa variables xl,x2,... qua aparecan en la axpresldn 

axpr. Los par&aatros yl.y2, sa puaden tranaferlr coao axpreslones 

nuadrlcaa 0 strings, cuando sa llaaa la funcldn. 

Cuando las variables xl.x2.... taablSn tlanen daflnlcldn global, no 
tlenen acceso an la expreslOn axpr. ya qua dancro da expr eontlanen 
los valoras transfarldoa. Por lo tanto. xl,x2,... son funclonaa para 
variables locales. 

La instniccldn FK sa puede raeaplazar tasblSn por i. Las funclones 
puaden ester ancasllladas da cualquler aanera. pare eon OEFFN no an 
foraa recursive ( la condlcldn da Intarrupcldn no as poslbla). 

EJaaplos: 

OEFTN tast(y.aS)«x-y«LEK(aS) 
x*2 

PRIKT etast(4.'abcdef*} 

•') En la pantalla se vlsuallza el nuaero 4<2-4*6). 

DEFFN first lastS(aS)*LEm(at)«Rl<3frS(at) 
bt*erirat lastSCIEST") 

PRIKT bS " 

— > En el Bonltor sa vlsuallza el taxto TT*. 

DEFFN hoch_vler(x)«x*4 
DEFFN vlerta_wurzel(x)«x'(l/4) 

PRINT #vlarte_wurzel(Choch^vler(1024)) 

— > Aparace el nuaero 1024. 

BaairieactODaa ralaclonadaa coa ua avanto 

En esta apartado se tratan dos tlpos da bachos. qua ae pueden 
sollcltsr an el QFA-BASIC. Los bachos no aspeclflcos dal CFA-BASIC. 
coao por ej. sollcltsr al cllc dal ratOo. selacclonar aanCis pull' 
down, sa anallzan an otros capltulos ( prograaaclOn da aanus y da 
ventanas. blbllotacas AES). 

El prlaero de los dos bachos tratados as la pulsacldn slaultAnaa de 
laa teclas Control. Shift y Altemata. El segundo tlpo de becho as la 
aparlcldn da un error. 
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OH BREAK 
ON BREAK CWr 
ON BREAK GCeUBproc 

proc: noabra d« un procedlalenco 

Estos eras coaandoa fijan la raaccidn a la pulaaclfin slaultAnaa da las 
teclas Control. Shift (solo la tacla Shift Izqularda) y Alteraata. La 
pulsacidn do asta cosblnaclOn da taolas eonduea noraalaaots a la 
Intorrupclda dal profraaa, paro taablAn puado sarvlr para saltar a un 
dacaralnado pcocadlaloneo. Con asta fin sa flja al proeadlalsneo proc 
eon ON BREAK OOSUB. 

Con ON BREAK OOSUB sa logra qvis no sa raaeclona oAs a la pulaacldn da 
la eoablnaclOn da taelas aanclonada. OH BREAK vualva a conactar la 
raaccldn noraal (Intarrupcldn dal proffraaa). 

Ejaaplo: 

ON BREAK OOSUB tast 

PRINT 'Oprlaa CONTIiOL. SHIFT (Isqularda) y ALTStNATE* 

DO 

LOOP 

PROCEDURE case 
PRUrr *Eao fua codo* 

ON BREAK 
RETURN 

••> Sa Bollclta pulsar la coablnaeldn da taelas. SI aato ocurra. al 
procadlalanco tast vualva a conactar la nitlna braak noraal. 

ON ERROR 

ON ERROR QOSUBproc 
RESUMECNEXT] 

RESUHEtaar] 

proc: noabra da un procadlalanco 
aar: noabra da una aarca 

La oeurrencla da un arror (arroraa TOS o aspaclflcoa dal QFA*BA51C) 
eonduea noraalaanca a la laprasldn da un aansaja da arror y a la 
Intarrupclte dal proftaaa. Con ON BtROR OOSUB axlata la poalbllldad da 
raalflcarsa al procadlalanco proc cuando ocurra uo arror. Bn aaca 
procadlalanco aa puada fljar la raaccldn franca a un arror. 

Con al cuaando ON QIROR sa vualva a conactar a la dataceldn noraal da 
arroraa, o aaa a la lapraaldn da un aansaja da arror y a la dacencldn 
Inaadiaca dal profraaa. Cuando ocurra un arror, aa ajecuca 
autoaatlcananca un coaando ON QtROR. Para podar raaeclonar a varloa 
arroraa sucaalvoa daba volvar a aparacar al coaando OM ERROR OOSUB 
proc an la nitlna da dataceldn da arroraa. 

La Inatruccldn RESUME peraica raaeclonar an foraa aapaclal cuando 
ocurra un arror; aolo Clana aanCldo an al procadlalanco da dataceldn 
da arroraa. Con RESUME NEXT sa puada lofrar aaltar al slfulanta 
coaando qua flgura datrda da la aancanela dal pcofraaa qua eondujo al 
arror. Con RESUME aar aa aalta a la aarca aar. La Inatruccldn RESUME 
•In Indlcacldn da NEXT o da una aarca vualva a aaltar a la aancanela 
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en la cual ocurrld el error. Cuando ocurrld un error fatal (ver FATAL) 
aolo sa puede uaar la Inatnccldo RESUME aar, pero no RESUME NEXT o 
RESUME Bin lndlcacl6n da la aarca. 

Ejeaplo: 

ON ERROR GOSUB rahlerabfan«er 
ERROR 5 

PRINT "y otra ve* ...* 

ERROR 5 

PRiyr "no ea alcanzado* 

PROCEDURE fehlerabfanger 

PRINT ’Ok, Error fue aujado.* 

RESUME HSCT 
RETURN 

"> En la pancalle aparecen loa textoa 'ok, error dateccado.' y ' y 
otra vez...'i luego el aanaaje de error daaencadenado por QUIORS 'raXz 
cuadrada aolo para nuaeroa posltlvoa'. La aarca para RESUME puede 
figurar tanco an un procedlalento coeo en el prograaa principal. 

ERRORx 

ERR 

ERRS(x) 

FATAL 

x: aexp 

Con EREtOR te puede deaencadenar el error con el nueero x (ver en el 
anexo la table de aenaajea da error). Eato ea iltll por ej. cuando ae 
revlaa una rutlna de aanejo de errorea. 

En la var ERR figure el nuaeco del error ocurrldo. Con ellaa ae pueden 
aaignar reacelonea eapeclflcaa a deteralnadoa errorea dentro de una 
rutlna de aanejo de errorea. 

La funcldn ERRS retoma el atrlng del aenaaje de error del OPA-BASIC 
con el Diiaero x. 

La variable FATAL ea verdadera, cuando el error ocurrldo aparecld en 
una dlreccldn conoclda para el Intdrprete. Eato puede aer por ej., 
cuando el error ocurrlO an la ejecuclte de una rutlna dal alateaa 
operative. La conaecuencla para el prograaa ea que deapuda de un error 
fetal no ae puede ejecutar ada en foraa correcta un RESUME o RESUME 
NEXT. 


EJeaploa: 

ON QtROR OOSUB fetUerePfangung 
INPUT 'Bllja el error: ’.a 
ERROR a 

PROCEDURE fehlerabfangung 

PRINT 'Eate fue el error Ho.: *;StR 
IF FATAL 

PRINT ’quo ea un error fecal.* 
E»DIF 
RETURN 
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..> Solicit* del usuarlo el mieero de error deseado y vuelva a 
vlsualiiar eace nOaero. 

F0RM_ALERT{ 1 . ERRS ( 100) ) 

— > visualize el eensaje de error eon la caraccerlzaeidn 100 ( o 

sea el eenaaje Copyrl^t) coao Alert-Box. 

Prosrsaselda Interrupt 

eVSiytlcksOOSUBproc 
EVERV STOP 
EVERY cotrr 
AFTBlticksOOSOBproc 
AFTER STOP 
AFTER COOT 

ticks: lexp 

proc: noabre de un proeedlalanto 

Con ayuda de laa insttueclones EVERY y AFTER ae puede scceder a 
p;-ocedialentos despuds de cranscurrldo un deteralnado tleapo ticks . 
Con la instruccidn EVERY sa accede al p roce diaiento proc en cede 
unidad de tleapo ticks: aientras 4 ue ccn AFTER sa accede a asta 

procedisilenco una vez transcurridas ticks unldades da tleapo, 

La unidad de tleapo se indica an dos centdslaos de sesundo (tlcks«200 
algnlflca enconces un secundo) . La raalficacita al procediaiento 
indicsdo se puede ejecutar solo en cada cuarta unidad da tleapo, o sea 
que la preaicidn efectiva del tleapo vale aolo un eincuetavo da 
segundo. 

Con EVERY STOP sa puede detener al salto al procediaiento despuSa da 
transcurrldo el plazo de tleapo. y con EVER Y COOT ae vuelve a 
continuer. : instrucclonaa AFTER STOP y AFTSl COOT trabajan an 

roraa andloga. Intemaaante en al GFA-BASIC ae raallzan aacas 
inatrucclofiea a traves del vector del etvtiaer (MOO). 

Recldn desputs da le ejecucldn coapleta de una Inatruccldn ae anallza 
al as debe ejecutar un prCfcedlaiento de eeta tlpo. o sea Instrucclonaa 
que ae ejacutan coo lantltud coao D1P92), QSORT. operaclonea de 
archlvoe o •laliares puadan uvedlr eataa rutlnas. 

EJeaplo: 

EVERY 4 QOSUB lines 

llnienUTROE 

GRAPKHODB 3 

DEFFILL 1.0 

PLOT HOUSEX.NOUSEY 

REPEAT 

IP H0USQ(*1 
EVHIY STOP 
ELSE 

EVB)Y COOT 
On>IF 

DRAW TO HOUSEX.NOUSEY 
UNTIL H0USQ(«2 
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PROCQ)URS lines 
INC yX 

LINE 32O.yX.639.yX 
IF yX«399 
yX-0 
S<DIF 
RETURN 

"> Produce el desplazeslenco deeds errlbe psrs ebajo de llness en la 
altad darecha del Bonltor y perelte dibujar slaultAneaaenta con el 
ratdn. La pulsacldn de la tacla laquler^ del ratdn conecta y 
deaconecca las lineaa que se desplazan. El prograBa se puede decener 
pulaando la cecla darecha del ratdn. 

PRINT *En 3 aegundoa aparece un texto.* 

PRINT *al no ^rlae nlnfuna tacla." 

AFTER 600 OOSUB taut 
REPEAT 

UNTIL INKEVSO" OR RAUSI 
AFTER STOP 

PROCEDURE text 
PRINT 

PRINT "AcA estA el taxto' 
rausliTRUE 
RETURN 

*■> SI an loa tree sat^indos slcuientes a la Inlclacldn dal pro^aaa no 
se pulse una tecla. aparece un texto. SI se pulse una tacla. enconcas 
se flnallsa al prosraaa. 


Otros caaos 

ROI. 0010. PAUSE. DELAY 

Om. QIT 

STOP 

SYSTQI. QUIT 

REMx 

'x 

<llnaa da aantancla>!x 
x: cualqular taxto 

Ed una llnea, qua coelanza con REX o con ' , puedan figurar textoa de 
cualqular tlpo. Estoa textoa no estAn aoaatldos al control slntActlco 
dal editor y no aon atandldos an la ejecucldn del prosraaa. AdeaAa. se 
puada agregar cualqular taxto al final de la lines de sentencla. 
datrAs dal slgno de axclaucldn t . El uso da asta slabolo no as 
poelbla en relacldn con Inatrucclonea DATA. TaablSn con INLINE no as 
poalble al coaantarlo. 

SJaaplo: 

ROI Coaentarlo 
’ PRINT ’coaentarlo" 

PRINT "REX’ I Coaentarlor 
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--> Bn la pancalla apareca la palabra RBI. 

GOTOaar 

aar: 


aar; aarca definlda por al prosraaador 

Con ayuda de una aarca aar; se puaden Pljar par tea del prograaa. a las 
cualas se debe aeceder coo la inacniceldn QOtO. La ajacucldn del 
procraaa so conclnda an la poalcldn da la aarca. La aarca puada astar 
coapuasta da latraa, ndaaroa, aubrayado y puntos. Taablta puada 
coeensar coo uo nuaaro. a dlfaroncla da los noabraa do varlablos, paro 
daba flnallaar con 'dos pintos' . Cuando sa accede a la aarca eon QOTO 
no sa Indlcan lea 'doe puntos'. 

Con OOTD no as poslbla antrar o aallr da procadialantoa o funclonas. 
Esco taablAn vale para aacrueturaa da ropacicldn FOR-MEXT. Con las 
inatrucclonaa GOTO sa plarda claridad dal profraaa, por lo qua da 
aar poslbla, sa dabarlan avltsr. 

EJaaplo: 

PRIKT 'Poatcldn 1- 
GOTO apruncsarka 
PRlwr -Potlcldn 2* 
sprun^aiica: 

PRINT ’Poalcidft 3* 

En la pantalla to visuallzan loa taxtoa *Lufar 1* y *Lufar 3'- 

PAUSES 

DELAYS 

s: asxp 

La Instruccidn PAUSE conciana la aiacucita dal procraaa para s/30 
tagundea. DEUY tlana un afaeto aaaalanea, aunqua la ajacucidn dal 
prograaa sa Intarruva por s sagundoa {praalcldn tadrlca an 
Blllsegundoa) . DBt^Y uta la rutina GBI EVirr_TIJIER, o aaa aa racoalanda 
part prograass OBI. 

EJaaplo; 

PRINT ’Coalanso* 

PAUSE 100 
PRINT *una pausa’ 

DEUY 2 
PRINT 'Fin" 

Aparacan al Casto 'Start' y dot aagundoa aSs tarda 'una pausa' , y 
despuds da otroa 2 sagundos 'Pin'. 

BID 

EDIT 

STOP 

Estaa inatmcclones siivan para indlcarla al tntdrprata da la adqulna 
qua al prograaa qua sa h^la bajo ajacucidn ba Tlnallzado. La 
Instruccidn END tetlena la ajacucidn dal prograaa y daja aparacor un 
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Alecfbox eon al texto 'Flu dal proc^aaa'. El CfSA-HASIC 3-0 fatoma 
al editor despuAa da salecclooar la linlca altematlva da eleccldn. 

EDIT teralna la ejacucldn del prosreaa y recoma Inaadlacaunte al 
editor. 

STOP deja aparecer un Alert-box con las altematlvas de elecciOn STOP 
y CONT. SI sa allge CONT se puade prosegulr la ejecucidn del prograsa. 
Deapuda de la elaccldn de STOP al CFA-SASIC retoma al aodo dlrecco. 
Alii le puedan aodlflcar o sollclcar antonces los valores de variables 
y volver a proaegulr la ejacucldo del prograaa con CONT. 

Bleaploa: 

x-3 

STOP 
PRINT X 

— > Ellja el Button 'STOP', cuando aparece el corraapondlente Alert- 
box. Ingrase ahora las slgulentas Inacrucclonea en note directo: 

PRINT X 

• •> Aparece al nCiaero 3 

x-4 

CONT 


— > Ahora se ajecuta la ulciaa seniancia del llstado (PAlNTx), Aparece 
el niiaaro 4. o sea el valor tndlcado an el aodo dlrecco. 

NEW 

Eata Inscruceldn borra un prograaa. En el eodo directo hay una 
pregunta de conflreacldn. En el editor se secede a eata Instruccldn 
eon Shlft-F4 o con el click del rac6n (coo pragunta de conflrmacldn) . 

LOADfS 

ft: aexp 

La instruCClOn LOAD sltve para cargar un prograaa del GFA-BASIC. La 
expresidn string fS contiene el caeino de acceso del arcnlvo deseado. 
SI no se indlca un sufljo. se preselecclona el uso de *.QPA . 

BJeaplo: 

LOAD "A:\TSST.GFA" 

— > Carga un archlvo del prograaa TEST.CT'A del Indlce bAsico de la 
dlaquacera A. 

SAVEft 

PSAVEfI 

fS: sexp 

La InsCrucclOn SAVE alaac«>a un archlvo da prograaa bajo el noabre 
indlcado en fS. Cuando aa use le Inatrucclte PSAVB se alaacena el 
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arch! VO Indlcado con protecclDn d« llacado ( o •! archlvo no so 
puede llscar cuAftdo «e vuelvo a eargar con LOAD, alno qua m aJacuCa 
Inaedlataaenta) . Sin nlnguna IndlcaclOn to asplaa *.0FA . 

EJe^>lo: 

SAVE ■A:\tESr.0FA’ 

••> Alaacana al archlvo 4a prograoa actual bajo al noabra TEST. CPA an 
la dlaquatara A. 

LlSTtfS] 

LUSTtfS] 

fS: laxp 

La lAatruecldn LIST praamta al prograsa actual an la paocalla. 
Opclonalaanea aa puade Indlcar un caalno 4a accaao, bajo al cual aa 
alnacanO al archlvo dal prograaa an al focaato ASCII. Arehlvoa da 
prograaaa, qua aa daban inaartar an ocroa prograaaa eon RERCE, aa 
daban alaacenar con LIST o SAVE, A (da la aona dal aand dal adltor) an 
Tomato ASCII. 

Sin Indlcacldn da un aufljo aa praaalaeclona al uao da .LST. El 
prograaa actual aa puada laprlair an la lapraaora con LUST. El 
llatado da la lapraaora aolo aa puada Intarruaplr daaconactando la 
lapraaora. Luago tarda aproa. otroa 30 aagundoa haata qua al prcvraaa 
aa Blgua ajacutando o blan raterna al adltor (coaparar LLIST y loa 
eoaandoa da punto an al apartado aobra al a^tor). Paro taabl4n aa 
poaibla daaviar la lapraaldn (var ada arrlba) . 

Ejeaplo: 

LIST "A:\TEST. LST* 

••> Ouarda al prograaa actual bajo al noabra TEST. LST an Poraato ASCII 
lobre al dlaco an la dlaquatara A 

.11 70 
.pi 66 
U4ST 

••-> laprlaa al prograaa actual an la lapraaora con una longltud da 
llr.ea da 70 caractaraa y 66 llnaaa por pAglna. 

CHAINn 

fS: aaxp 

La inscruceldn CHAIN poalblllta la carga da un prograaa da CFA-BASIC 
an la aeaorta da trabajo a Inlcla la ajacucldn dal al prograaa. Sin 
Indlcacldn da un aufljo aa praaalaeclona al uao da *.0PA . 

BJaaplo: 

CHAIN •A:\ZUSATZ.OFA" 

— > Carga al archlvo dal prograaa ZUSATZ.QFA a Inlcla al prograaa. 
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COlfmOL DSL PROGRAMA 


BUNCfJ] 

P$: sexp 

La instrucclta RUN Inlcia el prograaa actual. SI adlcionalaence ae 
Indlca el noabre coapleto de un arctuvo. entonces se carga e Inlcla el 
correspondiante prograaa. 

Ejeaplo: 

RUN •A:\TE1L_2.QFA* 

—•> Carga e Inlcla el prograaa con el noabre PARTE_2.GFA de la 
dlsquetera A. 

SVSTWfn] 

auiT[n] 

n: lexp 

Estaa Ina trucclonea SY7TSI y QUIT clenan el alaao efecto. Flnallzan la 
ejecucldn del prograaa y ahandonao el GPA-BASIC. Contrarlaaente a laa 
veralonaa 2.xx SVSTOI y QUIT retoman opcionalaente un valor entero de 
2 bytea. Bate Word ea nulo, al ae abandond correctaaente el IntArprete 
y ae tranaflere al prograaa llaaado ( an el caao noraal el Deaktop) . 

En eata caao vale la eonvencldn, qua 0 aeAala una ejecucldn aln 
errorea, un nuaero poaltlvo da I 6 blca earacterlza un error Intemo 0 
una advertenela y un nuaero negative da 16 blta representa 
generalaente un Mnaaje de error del alateaa operative. No todoa loa 
prograaaa cuaplen eato. 

EJeaploa: 

RESStVE 100 

PRINT EXECtO.’QFABASIC. PRC’. 

"> Inlelar eata pequaAo prograaa (Shirt*P10). volver a cargar un QFA- 
BASIC. Bn eate OFA-BASXC Ingraaar a inlelar la InatrucclOn: 

QUIT 23 

— ) lapraaldo: 23 y Pin del prograaa del QFSA-BASIC qua ae cargo 
prlaero. 

Ranejo de errorea 

TRON 

TR0N»n 

TROFF 

n; lexp 

La InatrucclOn TRON (trace <»} lleva a quo en la pantalla ae listen 
todaa laa sentanclaa ejacutadaa. Eate lists sa puede transferlr a un 
archlvo, a la iapresora o a una interfasa serlads etc. Indlcando el 
nuaero da canal. La InatrucclOn TROFF lo vuelve a desconectar. 
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COKmOL DEL PROORAMA 


EJeaplos: 

PRDfr 'Coalanxo;' 

TRON 

FOR 1S*1 TO 5 
PRIOT it 
NEXT IX 
THOFF 

PRIOT "Fin" 

— > s« vlsukllsa la palabra 'Coalanzo'. LuafO aparaean loa nilaaroa <lal 
1 a 5 y laa inatrucclonaa. qua conducan a au rapraaantacldn, y 
flnalaenta la palabra 'Fin'. 

OPEN •O*.»l.*\troo.lat'' 

THOH II 

FOR iX*l TO 10 
PRurr ix 
NEXT IX 
TROFF 
CLOSE 11 

OPEN •0*.#2.*pm:‘ 

TRON 12 

FOR 1X«10 TO 630 STB* 10 
LINE lX.O.lX.lOO 
NEXT IX 
TROFF 
CLOSE 12 

--> Sa vlauallian loa nuaaroa 1 a 10 y laa Inatrucclonaa naceaarlaa 
para alio y una aarla da llnaaa varticalaa aa Intarvaloa da 10 pixal. 
La aallda da aataa Utatrucclonaa tlana lugar an al dlaco o an la 
lapraaora. 

TRONproc 

TRACES 

proc; ooabra da un procadlalanto 

Con la Inatrucclte TRON proc aa puada litdlcar un procadlalanto, qua aa 
puada llaaar antaa da tratar cada aantancla. La varlabla TRACES 
contlana la Inatniccidn, qua aa ha da ajacutar eoao prOalaa. La 
Inatruccldn TRON proc an coabinacldn con TRACES baca poalbla una 
buaquada da arroraa auy eflclanta. Aal, dapaiwllando por al. da la 
algulanta InatrucclOn a tratar , puaden aallr datatvlnadaa varlablaa 
an la lapraaora. da tal aanara qua m puada aaptlr la aodlflcaeldn da 
una varlabla duranta la ajaeucldn dal pro(raaa. 

Ea laporcanta, qua al procadlalanto TRON aolaata lo aenoa poalbla. Lo 
alaao vala para laa Inatrucclonaa PRIKT an aAacaraa da la pantalla 
(TEXT. ATEXT....). Taapoco aa daberlan usar rutlnaa da VDI ( por uso 
da OOOS 0 DEFTSCT-LIHE-A). 0... 


Ejeaplo: 

TRON tr proc 
CRAPKMOOE 3 
DO UNTIL H0USQ( 
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CONmiL DEL PROGRANA 


xlS>100«RAND<200) 

ylS’lOO'RAIOKlOO} 

xaS>200<RAt(D(200) 

y2X-200«RAND(100) 

PBOX xlX.ylS.x2S.y2X 
LOOP 

PROCEDURE er_proc 

IF BI0S(11.*1) AKD <> t Control-Txsu 
■drS>XBI0S(2) 

BNOVE •drX*12S0.AdrS. 4*1280 
PRIlfr AT(1,5):SPACES(80); 

PRIKT AT(1.5);LQTS(inACES.79); 

PAUSE 20 
EKDIF 
RETURN 

'*> Esta programa dibuja recttn^uloa dlacribuldoa al azar en la 
pancalla. Pulaando la tacla da Control sa vlauallzan an la pantalla 
las aantancias raclAn cracadaa. Pulaando una cacla del ratdn aa 
finalize al prognaa. 

0UMP[aS(T0bS]] 

aS.bS: aexp 

Con la Inatruccido DUMP sa puaden vlaualizar loa contenldos da 
varlablaa duranca la ajacucidn dal prograaa o as puaden llstar labels , 
procadlalentoa y funcionaa. Para alio la expraaidn aS pueda asualr loa 
alguiencaa valorea: 

EJ eaplos: 

DUMP 

• Sa vlauallzan todoa loa valoras da variables y so dlaenslonan 
arregloa . 

DUMP “a" 

--> Igual qua an al caso anterior, paro solo variables o arregloa qua 
coalanzan con. 'a' . 

DUMP - : - 

— > Lists todoa loa labels (aarcaa) a Indies luego al nuaero da lines 
dal editor, donde sa deflnld la aarca. La variacldn (:b) solo lists 
aarcaa, qua coalanzan con 'b*. 

DUMP "8“ 

— > Lists todoa loa procadlalentoa y funcionaa. an cuyo caso figure 
detrAs dal noabra al ndaaro da llnaa, en la cual sa ancuantra date en 
el editor: 

proc_noabra 6 100 (procadlnlento) 

func^noabra FN 200 (funcldn con ratomo nuadrlco) 

func_noBbreS PN 300 (funcldn coo ragtomo da string) 

Labels, procedlalentos y funcionaa qua no se deflnen aSa sa Indlcan 
aln nuaero da llnaa. Cuando al llstado del prograaa se alaacana bajo 
la opcldn SAVE, A y se vualve a cargar. no vualvan a aparecer eatoa 
noabres Indaflnldoa. Paro aparecen noabras de labels, procedlalentos y 
funcionaa sin nuaero de llnaa aapleados paro no deflnldoa. 
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COtmiOL DEL PROCSAMA 


A los nCiseroa da lloaa Indicadoa datrAs da loa noabres aa pueda 
Bccadar an al adltor can Control*<3. 

Cuando sa vlauallzan atrlnfa aa rapraaencan coao adxlao 60 caractaraa. 
Cuando la cadena da caractaraa as bAs larga. aa vlauallza coao Olclao 
caracter un alno un ' * ' . Loa caractaraa da coocrol dal curaor 

aa rapreaentan con ' . ' . 

Laa aalldaa aenclonailaa antariocaanta aa puedan cranafarlr taablAn a 
un archive. Para alio aa daba indlcar ua no^ra da archive an bS. 

Coao aufljo dafauit o por dafaeto ( ain.) aa acapta .OKP. 
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RB'KESEtfTACION GRAPICA 


8- B«preaant«cl6a sr&flca 

El ATARI ST conoce tr«s aodoa dlferent«s da representacldn grAfica. un 
■odo bianco y nagro y dos aodoa color. Laa coordenadaa de laa 
Inatrucclonea gr&Tlcaa y loa coloroa qua aa puaden rapreaencar con 
allaa dependan da la raaolucldn actual. Por lo tanto pcaaentaraaoa un 
panoraaa da loa aodoa de rapraantacldn grdflca; 



Puntoa de la pantalla 

Colorea 


(Coordenadaa) 

(Raglatro 
da colorea) 

Raaolucldn baja: 

320 X 200 

16 


(0 a 319) 

(0 a 15) 


(0 a 199) 

de 512 colorea 

Rasolucldn aedla: 

640 X 200 

4 


(0 a 639) 

(0 a 3) 


(0 a 199) 

da 16 colores 

Raaolucldn alta: 

640 X 400 

2 


(0 a 639) 
(0 a 399) 

(0 a 1) 


£n al prlaer apartado aa praaantan laa Lnacrucclonaa para la aelaccidn 
da coloraa {SETCOLH. COLOR). Luago aa indican laa inatruccionaa de 
daflnlcldn para la saleccldn y produccldn da dlferentea foraas del 
curaoF dal racdn, aarcaa. dlaeAoa da rellano, ancuadros y tlpoa de 
linaaa (DEFWUSE. DEmARK. DEFFILL. BOUNOnRY. DBFLINE). 

El aiguianta apartado praaenta laa dlfarantaa lnacrucclonaa CLIP para 
Xa dallaltacidn da rapraaantaclonaa griflcaa an la pantalla y laa 
inatrucclonea grAficaa para dlbujar dlfarantaa foraaa gaoaAtrlcaa 
bdaicaa (PLOT. LINE, BOX. CIRCLE. ELLIPSE). Sa daacrlban poalbilldadaa 
para la rapreaantacldn da pollgoooa (POLYLINE. POLYNARK. POLYFILL) y 
da texcoa grdflcoa (TEXT) . El aparta^ concluya con la preaentaeldn da 
la Inatruccldn FILL. 

En al ultlao apartado da aata capltulo aa dlacuta al crataalento de 
aacclonea da la pantalla con SGBT. SPUT. GET y PUT. 

Inatrucctonaa da daflalcldo 

SEICOLORragla tro . rojo . varda . axul 
SETCOLORraflatro. valor slxto 
COLORcolor 

raglstro. roJo. varda. axul. valor aixto. color: lexp 

La prlaer varlante da SBTCOLOR dateralna la proporcldn de loa colorea 
roJo. varda y axul en un dateralnado raglatro de colorea. La 
Intenaldad da laa proporclonas da colorea aa flja an aata caao con una 
eacala da O(aacaao) a 7(granda). La cantldad de colorea dlapcxilblaa 
da panda da la raaolucldn actual. Bn la aagunda varlanta se calcula el 
ajuaca da color a travAa de la aiguianta fdraula: valor aixto • rojo * 
2^6 > varda * 16 « axul. doode loa valorea para rojo. varda y axul 

provlenan nuavaaanta da la aacala de 0 a 7. 

Fljar la proporcldn da colorea en loa reglatroa da color nacuralaente 
solo tlena aantldo en laa resoluclonea da color. Para la raaoluclOn 
Bonocroattlca vale, qua cuando para el valor aixto aa Indica un v<tlor 
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RB>ftSEHTAC10N QHAfXCA 


dlatiAto de 0 o 1 , loa Ddaaroa p«r*t tlvtan el mlaao aracto qua 0 f 
loa nilaaroa l^araa tianen al alaae afacto qua 1. 

L« inscruccidn COUOR dataralna al color dal dlbujo. Dalanta da la 
axpraaldn nuadrlca color flcura un valor ancre 0 y 13 4 ua dapanda da 
la corratpondlanta rasolueldn. 

EJaaplo: 

SETCOUW 0.0 

— > Sobra al aonltor aooocroaacieo aparaca latra blanca tobra fondo 
nafTo. 

DEnOUSEalabolo 

DEFMOUSEbltaustarS 

alabolo: iaxp 

bltauater; saxp 

La prlaara varlaota da Inacrucclonaa dataralna al alabolo dal ratdn da 
una da laa 8 Poraaa pradaflMdaa. Vala la alfulanta aalcnaeldn: 

0 — > riacha 

1 — > dobla parantaala 

2 "> abaja 

3 **> aano taAalando 

4 — > aano ablarta 

5 "> Crux ratlcular flna 

6 ->> Crux ratlcular (ruaaa 

7 ■*> Cnix ratlcular ataarcada 

La aacunda varlanta airva para daflAlr un curaor proplo dal ratdn. 
Para aao aa deban tranafarlr al pun to da accldn. al color da la 
aAacara, al color dal curaor y al dlaaAo da blta para Pljar al aapacto 
da la adacara y al aapacto dal curaor dal ratdn an una cadana da 
caractaraa. El punto da accldn aa equal punto dal curaor dal ratdn, 
cuyaa coordMadaa aa ^alnlatran coao poalcldn dal ratdn. Cuando aa 
aollelta la poalclta dal ratdo, aa ratoman laa eoordsiadaa dal punto 
da accldn. 

Sa daba praatar ataitcldn qua todoa aatoa valoraa aa tranaflaran an al 
taaaAo da palabm. Para aao aa puada uaar la Inatiuccldo MUt. da tal 
aanara qua bimatarS raaulta aal: 

bltauatarS«MKlS( coordanada a dal punto da accldn) 

*KKIS( eoordtftada y dal punto da accldn) 

«KKlt{l) 'noraal. -l^XOB 
•MClKcolor da la aAacara) 

•WCItjcolor dal curaor) 

•naacaraS (dlaaflo da blta da la adacara) 

•euraorS (dlsano da biu dal curaor) 

HAacaraS y curoorS conaiatan da I 6 palabraa cada uno, loa cualaa a au 
vax tlanan al dlaaAo da blta da una llnaa. 
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REPH£SENTACXON QiAFICA 


EjMpla: 

OEJMOUSS 2 
RS>BAT 
UNTU. MOUSES 

•S*iOUS<O)>KKll(0J«HKlS(l)*NKlS(O)*NKIS(l) 
FOA lt«l TO li 
>S«m$*MKIS(65535) 

NEXT IX 

FOR TO I6 

HEXr H 

FBOX 0.0,200.100 
DEFMOUSS bS 
REPEAT 
UNTIL NOUSEX 


-*> Prlaare «par*c« uab tbajk eeao cur*er dal racda. Oaapuia da pulaar 
una caela dal ratdn, al curaor dal ratda claoa la for«a da una raya. 
Sobra al fondo nafro an al axcraao Izqulardo auparlor aparaca la forma 
da ua ractinfulo orlRlnado por la daflolcldn da la aiacara. El loop da 
aapara aa abaado n a puLaando uaa taela dal ratda. 

DEmARK(color ] . [ tlpo] , [ taaaAo] 

color. tlpo.taaaAo: laj9 

DEFMARK flja al color. Upo y taaaAo da loa caocoa. qua aa ftjaa coa 
la laatrucelda POLYMARK. Para la aapraaldn atadrica color 
aalatan loa valoraa aatra 0 y IS aa<te la r aaolucldo (var al raauaaa 
da aaca capltulo). Con tlpo aa puadan bacar laa alculantaa aarcaa: 

1 »> puaco 

2 ••> al^ ada 

J ”> aatartaco 
”> raccdnculo 
5 *■> crua 
6 '•> rombo 

Valoraa aayoraa producao la aatarlaeo coao forma da aarca. Loa valoraa 
para al taaaAo da la aarca aa Indlcao ao plaal. Si aolo aa qulara uaar 
al aatunde 9 tarcar pardaacro da la laatniccldn, aa puada auprlmlr por 
aj. al prlaar pardaacro y fljar doleaaaota laa coaaa corraapondlancaa 
para aaparar loa pardaacroa. DFMARK alcnlfica por aj. qua loa doa 
prlaaroa pardaacroa cooaarvao au ajuata actual, paro al taaaAo da laa 
aarcaa aa flJa an 4. 

BJaaplo: 

0UUX(l],yt(l) 

xl{0)-S0 

y»(0).50 

aSU)»150 

yl<l)-150 

DSFMARK 1.4.2 

POLYXARK 2.xE(),yS() 

DEHIARK .3.4 

POLYMARX 2,xE(),yS() OFFSET 30,0 
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REfRESEjrrACIOM CRAFICA 


••> DlbujA do* pan* do puntoo coo dlforonto* oorco* on loo potto* 
final •«. 


DoniXf color] , [oatllo] .[dlooflo] 

DEFFIU-C color] .bltaua tort 

color, **tllo.dl**Bo: lojip 
bltauatorS: *oxp 

Eota Initrueeldn fljo ol dlaoflo do rollono para loo Inatruceionoo 
PBOX. PCDtCLB, PB1.IPS8. P0LY7ILL y FIU. Dotormlaa al color. *1 
oatlle y *1 dlioflo do rollono y pealblllta ^flnlr dlooAoo eroode* por 
uno alaao. Para la varlabl* color a* puodan aaplaar valora* antr* 0 y 
15 aoftln la raaolucldn <v*r *1 reauaan da eat* eapltulo). Para aatllo 
valo la alculanto aalfnaeldn: 

0 vaclo 

1 rollono 

2 -«> puntoado 

3 ••> rayadfo 

4 --> alabolo ATARI 

Con dlaano *o pwodon aolocclonar dlaoAoa do 24 puntoo o 12 Unoaa 
(vor anoao; tabla da dlaafloa da rallano). 

En la facunda varlacldn do Inatruceionoo ao tranafloron on bltauatart 
1* Inforaacldn do blto da 32 byta* nocaaarla para la doflnleldn dol 
dlaono do rollono do I6*l6 plaol. Bataa Inforaaclonaa doboct 
proaantarao on foraato do palabra, para lo cual ao ofraca la 
Inatruecldn NXIS. 

lo* pariaotroB qua flfuran adalanta *o puodan auprlalr, *1 a* Indie an 
laa coaaa do aoparaeldn da pardaotroa. Aal, por aj. DEFFILL ,2.4 
•olocclona al dlaoAo do rollono .2,4 y no aodlflca al color im 
rollono. 

En la roaoluelOn aodla dal alataaa color puada babar daapud* do laa 16 
palabraa dal prloor bltplana otraa 16 palabraa par* al aogundo 
bltplano. Bn roaolucldo b*ia aon ontoneoo on total 4 * Ida 64 palobroo 
para dlaoflo* do rollvio aiiltleelor. 

Bjaaploo: 

DEPPIU. 1,2.4 
PBOX 10.10.40.40 
BOX 50.50.100.100 
Flu 70.70 
FOR !•! TO l6 

rt*ft«HUS(RAI(D(65535)) 

HEXT 1 

BOX 100 . 100 . 150.150 
DEFFIU, l.fS 
PILL 120.120 

*•> Dlbuja un box an el dlaeflo da rollono prooaloeetonMlo y uno an 
dlaoflo al aiar. 
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REPRESEIfrACION OUFICA 


FOB JJ*0 TO 15 

•{•BCHa(sj.jx) 

FOR 1S>1 TO 16 

n*r$*wcis(iS) 
NEXT iX 
DEPFILL l.fS 
PBOX 0,0.639.399 
NEXT JS 
LOOP 


— > 0«flna un dl«aBo <1« nlleno y *e vlauallza un r«ctAngulo con un 
dlaefto. 


FOR iX>l TO 64 
READ aX 

at>aS*MKlS(aX) 

NEXT 

OEFFILL ,aS 
PBOX 20.20.300,200 

DATA -I.*!. -1,-1, -1,-1, -1,-1, 0. 0. 0. 0. 0. 0. 0. 0 
DATA -1,-1.«1,-1. 0. 0. 0. 0. -1,-1. -1,-1, 0, 0. 0. 0 
DATA -l.-l, 0, 0.*1.»1. 0. 0,-1, -1. 0. 0,-1, -1. 0. 0 
DATA -1. O.-l. O.-l, O.-l, O.-l. 0,-1, 0,-1. 0,*1. 0 

“*> E«e« rutlna cr«a un dlMAo da rallano. qua coaplaCa an al aonltor 
bianco y nacro dot cnteaas franjaa bianco y necro. Para al aonlcor 
color raaulcan con raaolucldn aadla cuatro rraajaa da aadio ffroaor an 
loa cuacro coloras poalblaa y con reaolucldn baja 16 franjaa da cada 
vet una llnaa da altura an codoa loa 16 coloraa. 

BOUNDARYn 

n: laxp 

La InatrucclOn BOUNDARY uaa la funcldn da VDl vtf_parlMcar y conacta 
o deaconacta autoaAcicaaanta al anaarcado da la auperflcla da rallano. 
Cuando n aa Ifual caro. aa deaconacta el anaarcado y cuando n ea 
dlatlnco da caro, aa conacta. 

BJaeplo: 

DEFFIU 1,2,2 
BOUNDARY 1 
PBOX 50.50,100,100 
BOUNDARY 0 
PBOX 150.50.200.100 

--> Dlbuja un ractinfulo rallano con y aln anaarcado. 

DEFLlNBCaatllo] . [aapaaor] , [coelanxo_a , flnal_aa] 

ea tllo . eapeaor , coelenxo_8 , flnal_aa : iexp 

La Inatruccldn DEFLINS dataralna al aapecto de laa llneaa , qua aa 
trazan con laa Inacucclonea LINE, BOX. RBOX, CIRCLE. ELLIPSE y 
POLYLINE. El prlear partaacro aacllo fija al eacilo de laa linaaa. 


t conaccar al anaarcado 
t daaconactar al anaarcado 
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REPRESEKTACIOK ORAFICA 


Aqul le pusda el«gir entcv dlaaAos prodaflaldo* y daflnldo* por uno 
MlsBo. Sm poslblM loc iifulMtM diMflo* pr«d*f lAldos : 

0 — > X 1 m« «n «1 color da fondo 

1 --> lino* cospleta 

2 llnaa da truoa da pequeAoa Intarvaloa 

3 llnaa puntevia 

4 --> llnaa da truoa y puotaada 

3 **> llnaa da truoa da gandaa Intarvaloa 

6 **> al dlaaAo da la llnaa raaultanta aa: craxo-punto-punto. . . 

Loa dlaaAoa daflnldoa por uno alaao aa fljaa aadlanta la Indlcacldn da 
un valor da 16 bit, donda un bit fljado aqulvmla a un pun to fljado 
(an al aodo aonocroadtleol ■ 

B 1 aagundo parteatro aapaaor dataralna al aapaaor da la llnaa an 
plxal. Cl aapaaor da la llnaa aolo puada uuair valoraa laparaa. Cada 
aapaaor da llnaa Indlcado aa tratado coao al nOaaro qua la alfua an 
orden dacraclanta. 

Con coaianao^a y flnal_aa aa dataralna al alatelo da eoalanxo y final 
dal tlpo da llnaa. Ac4 aa puada alaclr «ttrai 

0 **> anfular 

1 — > riacha 

2 circular 

Sa puadan auprialr loa pardaacroa qua flfurao al coalanto. al aa 
praaentan lu coou da aaparacidn. Aai. por aj. coo OBPLINB *1,1 cooo 
alabolo part al coaianzo y final da llnaa aa flja la flaeha, paro no 
aa aodlflean al utllo y al ancho (var tabla ao al anaao) . 

CJeaplo: 

POR 1«1 TO 6 
1 

LINK 50.1*50. 200. 1*50 
NEXT 1 

OEFLINK 1.1, 1,2 
POR 1>2 TO 12 STB> 2 
DCPLIKE ,1 

LINK 250.1»25. 400.1*25 
NEXT 1 

DKFLINE -fcXlOlOlOlOlOIOlOl. 1.0,0 
LINK 500.10. 500.390 
VOID INP{2) 

**> Sa dibujan llnau on loo aala aatlloa pradafloldoa. Luago ao 
cenoran llnau da dlatlnto aapaaor. La llnaa •> al dlaaAo daflnldo por 
uno alaao aa puntaada. Plnalaanta u upara a qua wo pulaa una cacla. 

DEFTKXT[ color] .(attr] .[Angulo] . [altural. [fostor] 

color, attr, Angulo . Al Cura , fontnr : laxp 

Cata Inatruccldn flla al aapacto qua tandri wa cadana da caractaru 
qua aa laprlalrA con TEXT. 

Color tlana an uta caao y aagOn la raaolucldn w valor antra 0 y 15 . 
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Con actr m fljan loa aifulances atrlbutoa del taxto. los cuales se 
pueden coabiaar afrecacdo laa caracteristlcas: 


0 — > notaal 

1 — > bold 

2 — > ll^t 

3 — > italic 

4 — > undarllaad 
l6~-> outlined 


(nonal) 

(gruaso) 

(rino) 

(inclinado) 

(aubntyado) 

(anearcado) 


La palabra Angulo detaralna la dlreccibn da la laprealOn del taxto. B1 
valor sa Indlca an 1/10 gradoa contra el aantldo dal raloj. 


900 

X 

I 

I 

ISOO ••• Funto ceco dal taxto • — 0 
I 
1 
1 

2700 


Sa peraita al uao da loa aiguiantaa nuaaroa: 

0 --> Preialaccionado. da Izqulerda a daracha 
900 -*> da arriba para abajo 
ISOO *•> da cabaza, da daracha a izqulerda 
2700 **> toraido da arriba para abajo 

La palabra altura Indlca la altura da tina latra aayilscula del taxto an 
pixel. Sin ae b i r go. an la puntuaclbn noraal aolo sa pueden leer sin 
difleultadas las sigulontas alturas da ascritura: 

4 *•> altura da ascritura Icon 
6 -*> latra paquefta 
13 latra nonal 

32 latra aapaclalaanta ganda 

Pinalaanta sa puada ladlcar con fontnr el nuaaro da una puntuacldn 
deseada. la cual prevlaaenta habls sido instalada an drdan (var 
taablAn: VSr_L0AD_F0irr.VgT_NANE. . . . ) 

Bjaeplo: 

FOB l|*0 TO 5 

DEFTSCr 1.2-il,0,13 

TEXT 100.11*1^100. 'Atributo da taxto ’*STES(i|) 

NEXT i| 

— > Sa visual iia un taxto da aJaiQlo con dlfarentes atrlbutos. 

GRAPHMODB n 
n: lexp 

La Instruccldo QiAPlMODB flja an quA forna sa conactarAn las salldas 
grAficas an la pantalla. La axpresidn nuaArlca n figure an asta caso 
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pan los cuatFO aodos poslblaa: 


1 -•> replace 

2 transparent 

3 xor 

4 — > reverse transparent 


(re«9lasar) 

(traosparenta) 

(Invertlr) 

(Invertldo y transparenta) 


Cuando n tlene el valor 1, o see el aodo preselecclonado. el nuevo 
dlseAo taps al anterior. Cm n Igual 2 se eonectan al dlseRo anterior 
y el nuevo aedlante OR. 


Cxiando n as Ifuala 3 *a flja cada pixel qua antarloreente no sa habla 
Pljedo y se borra cada pixel qua sa babla fljado antarloreente ( o sea 
sa Invlerten loa dlseAos con la cooaxldn XOR] . 


En al aodo 4 sa Invlerte prlaero el dlseAo nuevo y se conacta luago 
con OR. 


EJeaplo: 

FOR 1X«1 TO 4 
ORAPKNODB IS 
DEFPIU. 1,3.8 

PBOX 150»1S-100.10.150*1S.100 
DEFFIU. 1.2.10 

P80X 150*1S'140.50.150*1S-40.150 
NEXT IS 

--> £1 ejaaplo aueatra 4 recUnculoa con dlaaAoa dlfarentes, lot 
cualaa astAn conactadoa antra ai en loa cuatro eodoa. 

laatrueclonea generalaa para la repreaeataelAa srAflca 

En aaca apartado se Indlcan an prlaar lufar las poalbllldadaa para 
dallaltar lapreslonea da (rtflcoa eon las varlantaa da la InatrucclOn 
CLIP. 


Lea Instruccionas cenaralaa pare la reprasantaeldn frAflca PLOT. LINE. 
BOX. RBOX, CIRCLE y ELLIPSE dlbujan puntoa, llneas, rectAnfulos. 
rectanculoa con Anfuloa rsdo n daad o s. clrculos y allpsaa. Cm 
PBOX.PRBOX. PCIRCLB y PBLLIPSB sa los puada rellenar con colores y 
dlaaAoa. 

POLYLINE dibuja un esquaaa da pollfono. a cuyoa inxuloa sa puadan 
asifnar dlfarantes alaboloa con POLYNAW. POLYFILL rellana asta 
pollgooo con un dlseAo en dataielnado color. Point da al color do 
deterelnado punto da la pantalla. FILL rollena una dataralnada tons 
enaarcada dal aonitor. Cm TEXT se vlsuallsan cadenas do caractarea an 
detaceinadaa zones da la pantalla. CLS borra la pantalla. El orlcen da 
lea coordanadas para instruccionas da represantaclonas grATlcas so 
encumtra en el axtreao Izqulerdo superior. Las coordanadas pueden 
tenor valores fuera da la reaolucldn dal aonitor. aunqua sa 
raprasantan solo las zones vlslblaa da la pantalla. Al final dal 
capltulo so prasenta la Instruccldo BITBLT. 
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CLlPx.y,w.h[0FFSBT3c0.y0] 

CLIPxl ,ylT0x2 .y2[0FFSer*O.yO] 

CUP»n[OFFSCTx0.yO] 

CUP OFFSETx.y 
CLIP OFF 

x,y,u,h,x0.y0,xl,yl,x2,y2,n: lexp 

Este grupo de Instrucclonea se us on para el 'clipping' . Qulene declr, 
para dallaltar las salldas da repreaentaclonaa grAficas da una aaccldn 
rectangular de la pantalla. CUP flja el 'clipping' para instrucclonea 
de repreaentaclones grdflcas de VDl aiencras qua ACLIP lo hace solo 
para rutlnas de grdflca de UNE-A. Para fljsr esta aeccido de la 
pantalla (clipping rectangle) se deben traseltir las coordenadas de 
los cantos enfrentados en diagonal o blen el ancho y la altura del 
rectingulo de lleltacldn. 

En este caao se dlstinguen varies varlantaa de la Instruccidn CUP. 
CLIP x.y.w.h hace poaible Indlcar la coordenada x Isqulerda 'x' y la 
coordenada 'y' superior aal coao el ancho '«' y la altura 'h' dal 
rectangulo da llaltacldn. 

Otra poslbllidad cooalste en user la Inacnieeldn CUP xl.yl TO x2,y2. 
Aqul se transfleren las coordenadas de los cantos enfrentadoe en 
diagonal (xl.yl) y (x2.y2). 

La tercera variants hace poaible dellaltar la leprealdn al taaaAo da 
la ventana con el niiaero 'n'. 

En las varlantes eenclonsdas anterioraente as poaible fljar el origan 
do las iapresionas grAPlcas en el punto eon las coordenadas xO.yO, si 
se agrega OFFSET xO.yO a la instruccldn. La Instruccldn OFFSET xO.yO 
taabiin puede flgurar sola, satlsfacitodoaa el eiseo objetivo y 
fiJAndose el origan para las iapresionas graficas en el punto (xO.yO). 
£1 'clipping' se desconecta con la Instruccldn CLIP 0^. La 
delialtacldn de las Iapresionas graficas no vale para las 

Instrucciones GET, PUT, BIIBLT nl taapoco para todos los llaaados de 
UNE-A a instrucclonea AES. 

PLOTx.y 

LINExl,yl.x2.y2 

DRAH[TQ][x,y] 

DRAH[xl.yli[TOx2,y2][TOx3.y3][TO. . . ) 
x,y,xl,yl.x2,y2: lexp 

Plot dlbuja un punto con las coordenadas x,y an la pantalla. LINE 
dlbuja una llnea entre los pares de coordenadas xl.yl y x2,y2. Bstilo 
y color de estas llneas se pueden fljar con OEFLINE y COLOR. 

DRAW x.y equlvale a la Inatruccldn PLOT. Con DRAW TO x.y se traza una 
llnea antre las coordwadas x.y y el lUtleo punto fijedo. Es 
Indlferente, al este punto se flja coo PLOT. UNE o DRAW. Otrs 
variance ds la instruccldn DRAW escA repiesantads por DRAW xl.yl TO 
x2.y2. Eato equlvale a la instruccldn LINE. AdeaAs se pueden egregar 
otras Indlcaclones de coordenadas, con Iss cualas se pueden generer 
por ej. poligonos. La lUciM veriance de la Instruccldn DRAW 
poslblllta la Indlcacldn de coeandos, que son alellares a deterelnados 
conandos de repreaentaclones grAflcas de LOQO (grAflca de Turtle) y 
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del lenfuaje estindar Plotter HPCL de Hewlett-Peckard. Aal «• poelble 
sleuler un plotter en le pentella. 

BJeeploe: 

x>50 

y-50 

rarbe*P01KrU.2*y) 

PRINT farbe 
PLOT x.2»50 
LINE 200,200,400,100 
PRINT POINT{*,100) 

--> Dlbuja un punto y provee eu color da dlbujo. 


00 

HOUSE ax.ay.Bk 
IP ek*l 
DRAW TO ex. ay 
BOIP 

EXIT IP Bk«2 
LOOP 

— > Cuando *e pulee la tacla izqulerda dal ratdn ea dlbuja una 
coBunicacldn antra lea coordanadas actualea dal ratdn ax. ay y al 
Oltlao punto dlbujado. El loop aa aba n dona praalonando la tacla 
deracha del ratdn. 

ORAWaxpraalOn 

DRAU(i) 

SBTORAW 

1: laxp 

expraaidn: una aacuaneia da aexp y aaxp. al prlaaro daba aar 

aaxp. la aaparacidn daba aar con coaaa. aealcolon 
coaillaa ai^laa. 

Con DRAW aa aueva un lAplz laaglnarlo a lo largo da la pantalla y an 
clarta forma aa pueda dtbujar. Bato aa paracido a laa inatrueclonaa da 
rapraaontaclonaa grdflcaa dal languaja da prograaacldn Logo. Loa 
pariaetroa da laa aantanclaa aon cada vai nOaaroa da punto flotanta, 
qua caabldn aa puadan Indlcar m atrlnga. Bxlatan loa algulancaa 
comandoa: 


FD n ForvarO 
6K n BacKuard 
SX X Scale X 

SY y Scale y 


LT u Left Turn 

RT u Rl^t Turn 

TT a Turn To 


Daaplaxa al 'lApla'n pixal 'hacla adelanta' 
Oatplaxa al 'Idpla' n pixel 'hacla atrda' 

Plja la aacala dal 'aovialanto dal lipla’ 
para FD y 6X eon al factor Indlcado. 

La fljacldn da aacala con SX y SY aolo actda aobra 
laa Inatrueclonaa FD y BK. Con SXO o blan SYO aa 
daaconacta la aacala ( ada rdpldo qua con la 
fljacldn da aacala con factor 1 (SXl, SYIM- 
InUca al Angulo 'w' , aegvln el cual glra la 
dlraccldn del dibujo hacla la laqularda. 

Bn foraa aniloga pare hacla la dareeba. 

Iiullca el Angulo abaoluto , para lo cxial 
vale la algulante aalgnacldn: 
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0 

I 

I 

270 --- Cero — 90 
I 
I 

idO 

Las datoa da w*Anculo aa reallzsn an grados. 

HA x.y Hove Absolute Desplaza el 'lApiz' a las coordenadas 

abaolutaa z e y 

DA x.y Draw Absolute Desplaza el 'lipiz' a las coordenadas 

abaolutaa x e y y traza una lines an 
el color actual de la ultlaa posicldn 
del punto (x.y)- 

KR xr.yr Hove Relative Coao 'HA', pero con respecto a la 

lilclaa poaicldn. 

DR xr.yr Draw Relative Coao 'DR' pero en relaclOn eon la 

Dltlaa poaicldn. 

Una abrevlstura de la expresldn DRAW *NA*.x.y.*Tr’.w estA dada por la 
Inacruceldn SETDRAW x.y.w. 

CO c Color Plja el color 'c' coao color de 'dlbujo'. 

(Coaparar taabldn peraaetros an la 
Instruccldo COLOR) . 

PU Pen Up Lavanta el 'Itplz'. 

PO Pen Down Baja el 'lAplz'. 

Adlcionalaente ae dispone de las algulentes funclonea de conaulta: 

DRAW(O) da la poaicldn x (coao valor de punto flotante) 

DRAH(l) da la posicldn y (coao valor de punto flotante) 

DRAW(2) da el Angulo en grados (coao valor da punto flotante) 

DRAW(3) da la escala del eje x (coao valor de punto flotante) 

DRAW(4) da la escala dal eje y (coao valor de punto flotante) 

DRAW(9) da penflag (-1«PD, 0*PU) 

BJeeploa 

DRAW 'aa 160.200 ttO* t trazar a partlr de 160.200 con Angulo 0 
POR 1&*3 TO 10 

eck(14.90) I dlbujar un pollgono eon 1 vArticas 

NEXT It 

I 

PROCEDURE eck(n&.ri) I n«Nuaero de vArtlces. r>largo del canto 
LOCAL i& 

FOR U«1 TO nA 

DRAW "fd-.r4,''pt".360/nt 
NEXT 11 
REnmN 

— > Dlbuja pollgonos. 


pAgina l6l 



OFA BASIC 3.0 


RCt'RBSBITAClON Ut%A^iCA 


FOT i»0 TO 359 STEP 8 
SETORAW 320.200.1 
CTtAPHNODE 3 


DRAW 'fd 45 rt 90 

fd 

45 

rt 

90 

fd 

45 

rt 

90 

fd 45' 

DRAW 'bk 90 rt 90 

bk 

90 

rt 

90 

bk 

90 

rt 

90 

bk 90' 

GRAPHHODE 1 










DRAW "fd 45 rt 90 

fd 

45 

rt 

90 

fd 

45 

rt 

90 

fd 45' 

DRAW *bk 90 rt 90 

bk 

90 

rt 

90 

bk 

90 

rt 

90 

bk 90' 


NETT 1 


--> Dlbuja un ractinfulo p«qu«Ao y uno frande. qua ^ran aobra au 
proplo aja. 


1S>48 
' rauca 1 

DRAW *aa60.100 tt45* 

DRAW Pt90 M’.l*.’ rt90 rd'.W.* rt$0 fd'.W.* rt90“ 

’ rhoaboid, ichaal 
DRAW "arlOO.O tt45’ 

DRAW 'aKO.5 ayO* 

DRAW ’fd*.!*,* rt90 fd*.ix." rt90 fd*.«.* «90 fd'.U.* rt90* 

' rauta, bralt 
DRAW 'arlOO.O tc45* 

DRAW *aaO ayO.5* 

DRAW -fd’.U.- rt90 fd',1*.* rt90 fd’.iJ." rt90 fd’.lJ.* rt90* 

' rauta, bralt und hoch 
DRAW ’arlOO.O Ct(>9’ 

DRAW *ax3 ay2* 

DRAW ■rd“.l>.’ rt90 fd’.l*.* rt90 fd'.W,* rt90 fd'.W.' rc90' 

— > Dlbuja traa roaboa y un roabolda, para alio aa uaa coao objato da 
partlda un roabo y laa daata flsuraa aa obtianan aodlfieando la aacala 
a a y. 


BOXxl,yl.x2,y2 

PB0Xxl.yl.x2.y2 

RB0Xxl.yl,x2.y2 

PRS0Xxl.yl.x2.y2 


al.yl,x2,y2: laxp 

BOX dlbuja un ractdngulo con laa coordanadaa da loa cantoa xl.yl y 
x2,y2 anfrantadas an dlafonal. ^ forM anAloo. dlbuja un 
ractAnculo rallano. RBOX un ractinfulo da cantoa radondaadoa y PRBOX 
un ractAnfulo rallano coo cantoa rado n daadoa . 


Ejai4>lo; 

BOX 20.20.120.120 
RBOX 170.20.270.120 
x-150 

DEFFILL 1.2.4 
PSOX 20.20*x,120.120«x 
PRBOX 170.20*x,270.120*x 
-U(P(2) 

._> oibuja un ractAnculo. luafo un ractAnfulo da cantoa redondoadoa y 
rinalaanta nuavaaanta aabaa focaaa rallanaa. A continuaclCn aapara 
qua aa pulsa una tacla. 
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CinCL£x.y,rC,wX.w2] 

PCIRCLEEx.y.r[.«l.«2] 

EUIPSEx .y . rx . ry[ . wl . w2] 

x,y,r.wl,H2: leiq> 

CIHCLE dlbuja un clrculo cuyo centre dene lu coordanedae x.y y cuyo 
radio as r. AdeaAs se pueden indlcar el Angulo Iniclal wl y final h 2 
para deteralnar el arco circular. AnAlogaoente PCIRCL5 dlbuja un 
circulo relleno o un aegeento circular relleno. 

ELLIPSE dlbuja una ellpae con laa coordenadaa de centre x,y y el radio 
horizontal rx y el radio vertical ry. AdeeAa ae pueden indicar el 
Angulo iniclal «1 y final h 2 para deterainar un arco da ellpae. 
AnAlogaaente PELLIPSB dlbuja una ellpae rellena o un aegaento de 
ellpae relleno. En eata caao ae indican loa Angulos en 1/10 gradoa (0- 
3600) y loa arcoa y segaentos clrcularea ae dlbujan en sentido 
eoncrarlo al reloj ( o sea 0 grades hade la derecha. 90 grades hacia 
arrlba, 180 grades hacia arrlba y 270 gradoa hacia abajo). 

EJeaplo: 

CIRCLE 320.200.100 
ELLIPSE 320.200.200. 100.900. 1800 
PCinCLE 320,200.100,1800,2700 
PELUPSE 320.200.200.100.2700.3600 

■-> Dlbuja algunos circulos y (partes da) aliptea. 

POLVLlNEn.xO.yOCOFFSETx off.y off) 

POLYMARKn . x ( ) . y ( ) [0FPSEIx"of f .y"of f ] 
P0LYriLLn.xO,y()[0f?Sro«_off.y”offi 

n.x_off ,y_off: iexp 

x()Ty(): ~erreglo de aver 

POLYLINE craze una lines con n cantos. Las coordenadaa x.y de los 
cantos flguran en los caapos x() e y(). El priser canto figure en x(0) 
a y(0) . el liltlao en x(n-l) a y(n-l). El priaer y liltleo canto sa 
conecten autosAtlceaente encre si. AdeaAs ae puede egregar a escas 
coordenadaa un OFFSET horizontal (x_off) o vertical (y_off). 

POLYFILL rellena un cuadrado con un disaAo y un color fijados con 
DEPPILL. 

Con POLYNARK ae pueden aarcar loa puntos. 

EJeaplo: 

DIN xX(3).y»(3) 

FOR iJ-0 TO 3 
READ x2(iX).yE(i() 

NEXT IJ 

DATA 120 , 120 , 170 . 170 , 70 , 170 . 120.120 
POLYLINE 4.xj:{),yli() 

POLYFILL 3.xX(),yJ() OFFSET -50,-50 
DEFKARK .4.10 

POLYNARK S.xJO.yJM) OFFSET 40.-80 
-1NP(2) 
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'•> Dlbujs UA trlinfulo nlleoo y 00 nlleno asi coao aarcas da 
ractinguloa de otro trlAngulo. 

POINT(x.y) 

x.y: taxp 

Sa obtlana el color del punto eon laa coordanadaa x,y y ae ratoma a 
la variable. ^ la reaolucldn baja ae raComan valoraa entre 0 y 15. 
an la resoluciOn eadla entre 0 y 3 y an la reaolucldn alta aolo antra 
0 y 1. 

EJeaplo: 

a«P01KT(100.100) 

PLOT 100.100 

PRINT a.POlKTUOO.lOO) 

--> Escribe an la pantalla al color an la coordenada dal aonltor 
100,100 aatea y deapuda de la inatrucclte PLOT. 

FILU.y(.f] 

x,y,f; laxp 

Eata instruccldn rellana tina auperflela de cualqular forea. El procaao 
de rellano coalenaa an las coordanadas x.y. Cuando ae Indies t ae 
dallalta si procaao da rellano a travda da puntoa del color T y al 
aArgen del aonltor. 

SI no sa indlce f. o con r*-l, aa use cads punto con otro color qua el 
punto de partlde (x.y) coao lieita. 

EJeaplos; 

LINE 0. ISO, 639. 160 
FOR i>l TO 19 

BOX 1*20. 100, 1*20«20-1,160 
TBCr 1*20-4,195.I 
DBFFILL ,2.1 
PILL 1*20>1.101 
NEXT 1 

--> Dlbuja una recta, aobre la cual te allnean recttnguloe con 
dlferentee dlsafloe y loa rellana sin llalta da color, lo cual llava a 
la deatrucclOn dal dlseAo. 

UNB 0.260.639.260 
FDR 1>1 TO 19 

BOX 1*20.200.1*20*20-1.280 

TEJfT 1*20-4.295.1 
DEPFILL .2.1 
PILL 1*20»1. 201.1 
NEXT 1 

— > Dlbuja debsjo de Sato una recta eon ractdnguloa sucaslvoa da 
dlfarentes dlsaAos y loa rellana con dallaltscldn da color. Asl aa 
conservan loa dlfarentas dlsaAos da color. 
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CLSCIn] 
n: lexp 

Borra Xa paatalXa dejando vlsuallzar ESC-S'CR. Taabltn se puede 
tranaferir a archives. 

ejaaplo: 

PBOX 100.100,500,200 

REPEAT 

UKHL NOUSEX 

CLS 


--> Rallana la pancalla parclalaenta con reccAngulos y la borra al se 
pulaa una tscla dal raCOn. 

,yC , 1 ] , exprealdn 

x.y.l: laxp 

axprasldn: asxp o aaxp 

En al punco da laa coordanadaa x.y iaprlaa la expreaiOn coao taxto dal 
frAflco. Eaca punto as raPlara al sxtraao laquiardo da la llnaa bAaica 
dal prlaar carActar da la expraaidn. El parAaetro 1 fija la longlcud 
da la lapraaldn dal taxto an pixal. Eato ocurra a travAa da la 
aodlflcacldn da las dlatancla antra caracteraa ( con 1>0) o a travAa 
da la aodlflcacldn da la dlatancla antra palabraa ( con KO) . Cuando 
1 * 0 , la axprasldn aale an forma ixudterada en la pantalla. 

El taxto d al yr Afleo puada ear provlato da atrlbutos eon DEFTEXT, Sin 
eabargo, DEFTEXT actOa aolo aobre la Inatruccldn TEXT y la Inatruccldn 
nUNT dantro da una vantana. 

Ejaaplo: 

aS^'Eato as un ajeaplo.* 

FOR 1-0 TO 23 
DEFTBCT 1.1. 0.6 
TBCT 50.1*l6»l6.al 
W BCT 1 

DEFTEXT 1,0,0,13 
TEXT 350 . 50 . 350-50 
TEXT 350.100.a$ 

TEXT 350 . 150 . 250, al 
TEXT 350 . 200 .- 250 . al 
-INP(2) 

— > Escribe taxtos da frAflcoa an dlferantes varlantes sobra la 
pantalla y aapera luago la pulaacldn da una tecla. 

SPRlT^ltauatarlC .x.y] 

bitsuatarl; svar 

La Instruccldn SPRITE haca poslbla desplazar por la pantalla un objato 
da 16 pixel por I 6 pixal da taaaAo. Las correspondientaa Inforaaclonea 
da bit para el disafto y la aAscara se fljan en un string. Sa debe 
preatar atancldn da tranaParir todoa estos valores en al taaaflo da 
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palabra. Con ««te rin m pucde uaar I* instrueelte HUS, da tal aanera 
qua bltauater raaulca asl: 

btc«uaterl*HUt(coordenada x dal punto da accldn) 

•KKlS(coordaneda y del punto da accldn) 

*HKIS( 0 ) para nornal o HUS(-* 1 ) para XOR 
•KKI$(Color da la aAacara) (anaralaenta 0 
•nusjcolor del aprlte) canaralaenta 1 
*aprlteS 

Sprites conciena laa lafonaciottas da bit para la foraa y aAacara dal 
sprlca. laa cualea aa daben indlcar altamadaaanta. a dlfarancla da 
DEFMOUSE donda ta Indican una traa otra. 

Ejaaplo: 

gras>nas(i)*nusu)>uus(0) 

fraS<cfaS'HaS( 0 )*MXISU} 

FOR iS>l TO 

READ BuatarS.aaakeS 
rfaS«cru>HUS|BaakaS)«HUS<BuatarS) 

NEXT IS 

DATA 0 . 0 . 0 . 32256 . 15360 . 16896 . 0192 . 21)064 

DATA 8192.24560.11744.21000.9472.23280.9472.23295 

DATA 15838.16929.274.32493.274.749.286.737 

DATA 18.1005.18.45.18.45.0.63 

REPEAT 

ADD BxS.(N 0 US£X*axS |/50 
ADD ayS.(N 0 USEy-ayS )/50 
SPRITE ffaS.sxS.ayS 
inniL H 0 USEX *2 

••> Daaplaxa un aprita a la largo da la pantalla. al eual aigua 
lentaaanta al curaor dal ratdn. 

Saccloeaa da la pantalla 

SOETpantallaS 

SPUTpantallaS 

pantallaS: aver 

bOCT copla Buy rdpido toda la pantalla (32000 byte) an un atring. 
Spur copia an foraa anAloga un atring da 32000 bytaa da longitud an la 
naaoria da la pantalla. 

Ejaaplo: 

PCXRCLE 100.100.50 

SCET bS 

•IKP( 2 ) 

CIS 

-INP( 2 ) 

SfW bS 

— > Dibuja un circulo rallano aobre la pantalla. DaapuAa da pulaar una 
tecla deaapareca y vualva a aparacer euando aa pulaa nuavaaanta una 
tacla. 
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QCTxI ,yl,x2.y2. secciAnS 
PUTxl ,yl .BftccldnSC .Bodo] 

xl.yl,x2.y2,Bodo: lexp 
seccl^t : SvBr 

GET deposlca una »ecclta de la pantalla en una variable string. PUT 
coloca en forma anAloga una seccibn de la pantalla depositada con OET 
en el punto x.y de la aeaorla de la pantalla. Con aodo se puede 
detereinar opclonalaente cdao se be de conectar el disefio de bits 
depositado en seccldnS con el contenido existence de la pantalla. En 
la slgulente table signifies Q(orlgen) el disaAo de bits contenido en 
el string y Z(aeta) el contenido original de la pantalla. 

Nodo Regia de eooexiOn Sfecto 

00 Se borran todos los pun cos . 

1 Q and Z Solo quedan fijados squellos puntos quo 

estAn fijos en aabas aatrlces. 

2 Q AND (HOT Z) Solo sa fljan los puntos qua estin 

fijados en la aatriz da origin y bo- 
rradoa en la aatriz de seta. 

3 Q La aatriz da origan se tnnsflera en 

foraa inalcerada (prasalsccldn da 
C91APKM0DB 1). 

4 (NOT 0) AND Z Solo se fljan los puntos que estAn bo- 

rrados an la aatriz da orlgen y 
fijadoa en la aatriz da aeta. 

5 Z La aeta no sa altera. 

6 Q POR Z Solo sa fijan los puntoa qua escAn 

exacteaenta en una aatriz 
(CAAPHHODE 3). 

7 Q POR Z Se fljan todos loa puntos que escAn 

fiJadM an una de las dos sstrices 
(OlAPHMOOB 2) . 

S NOT (Q OR Z) Sa fljan todos los puntos qua no eacAn 

fijados en nlnguna de las dos aatrlces. 

9 NOT (Q XOR Z) Sa fljan todos los puntos, qua esCAn 

fijados an aabas aatrioas o en nlnguna 
aatriz. 

10 NOT Z La aatriz de aeta se iovlerte. 

11 Q OR (NCn* B) Sa fljan todos los puntos. que escAn 

fijados en la aatriz da origin y codoa 
los qua no ascAn fijados en la aatriz 

do aata. 

12 NOT B La aatriz de origan se iovlerte antes 

de la transferancla. 

13 (NOT 0} OR B CRAPHMODB 4 

14 NOT (Q AND ZJ Son fijadoa todos los piaitos, qua no 

estaban concenldos en asAias aatrlces. 

15 1 Se fljan codoa los puntos. 

Si as flja adesAs el bit 4 dal nodo. entooces sa produce 
adlclonalaente una conexlOn AND del diseAo da rellem cod la aatriz de 
origan. 

VSYNC 

Esta instruccldn sirve para slncronlzar la conforaacida de la pantalla 
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( o M4, el profreae eapere el ’vertlcel blatik Intempt'). 

VSYNC ae puede uaer por ej. para anlear partaa de la pantalla con CETT 
y PUT. 

EJeaplo: 

CS'TIMER 
FOR 1X«1 TO 100 
VSYJIC 
KEXT IX 

PRINT SU6(TIKER.tX)/a00 

— > Sm vlauallxa el tleape neceaarlo para 100 caabloa de pantalla. 

BlTBLTa.afdbX ( ) . d.afdbX ( ) . parX ( } 

a.afdbXO .d.afdbXO.parXO: arregloa de enteroa 

La inatruccldn BITBLT alrve para copiar aacclooea rectangularea da la 
pantalla. Tlana clerta atailicud con laa Inatnieclonea GET y PUT 
aunqua ea a&a flaxlbla y valos. pero aAa coapllcada an la apllcaeldn. 

Loa parAaacrot da la inatruccldn ae depotltan an traa caapoa. El 
prlaaro daacrlbe la aatruetura dal aector a copiar (aatrlx da origan) 
y al aegundo el aactor an qua ae depoaltard la copla (aatrlx da aaca). 
El tarcaro contlene laa eoordenadaa dal aactor da origan y da aeta aal 
COSO al sodo da copla. 

Eata inatruccldn aa baas en una rutlna VDl. alentras qua BITBLTdlrX y 
BlTBLTaXO uaan una rutlna da LINE-A (var apartado aobre llasadoa do 
ONE-A). 


La aatruetura da la aatrlx de origan (a.sfdbX) y da aata (d.afdbX) aon 
Igualea. Las abravlaturas algnlflcan: 

a_sfdbX() source aaaory fora description block 
d'ardbXO destination aaaory fora description block 

Loa olaaantos dal arreglo aon: 


_ardbX(0) 

_afdbX(l) 

srdbX(2) 

'afdbX(3) 

'afdbX(b) 

■afdbX(5) 


Dlraccldn Iniclal da la aatrls. Bata dlreccldn daba aer 
par. 

Ancho da la aatrlx an pixel. Bata valor daba sar dlvlslbla 
por 16. 

Altura da la aatrlx an pixel. 

Ancho de la aatrlx en palabras (•cintldad da plxal/l6) 
Reaarvado. slaapra 0. 

Cantldad da planoa da laa aatrlcaa: 

Raaolucldn alta ■ 1 
Raaolucldn aadla ■ 2 
Raaolucldn baja ■ 4 


El eaapo parXO tlana la algulanta astnictura: 


parX(O) 

parX(l) 

parl(2) 

parX(3) 


coordenada x Ixqulerda de la aatrlx de origan 
coordanada y superior da la aatrlx da orlgen 
coordenada x derecha da la aatrlx da origan 
coordenada y Inferior da la aatrlx da origan 
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parS( 4 ) cootdenada x Ixqularda da la aacrlz de deatlno 
pari( 5 ) coordeoada y ai^arlor da la aatriz da daselno 
par;(( 6 ) coordeoada x daracba da la aacrlz da deatlno 
parS<7) coordeoada y inferior da la aacrlz da dascino 
parX(S) aodo da copla. 

Lob valoraa para el aodo de copla aqulvalen a aquelloa de QET/PITT (var 

an al capiculo da RaprasanCaelte criflca) . Loa prlnclpalaa 

aon: 


3 • replace {(XtAPUNOOB 1) 

6 • xor (GRAPaMOOB 2 ) 

7 • cranaparaoc joumNOOB 3 ) 

13 * lovera Cranaparaoc (QRAPtlMOOB k) 

Ejaaplo: 

DIM safdbX(8),dafdb{(S).pJ(6) 

FOR lS -0 TO 639 STS' 8 
LINE IX. 0 . 639. 399 
NEXT IX 

GET 0 . 0 . 639 . 399 . at 

alrro rput ( 0 . 0 . a$ ) 

» 

PROCEDURE Blrrorpuc{xX.yX.VAR x$) 

IF LBl(xX )>6 laolo al axlaca al(o 
aX*V:x$ 
bX«IKT(aX) 
hX«IKT{aX> 2 ) 

aafdbX( 0 )aaX '6 
aardbX<l)«(bX*l 6 ) AND tUFFFO 
aafdbX(2)«hX*l 
aafdbX ( 3 ) 'aafdbX (1 ) /16 
aafdbX ( 5 ] ■DPSaC( aX« 4 ) 
dafdbX( 0 )«XB 10 S( 3 ) 

« 

dardbX(l)«6llO 

dafdbX( 2)>400 

dBrdbX(3)o‘t0 

dardbX(9)*l 

pX(i)-o 

pX( 3 )-hX 

PX(5)-/X 

pX( 7 )»yX*hX 

pX( 8).3 

pX( 4 ).xX*bX 

pX| 6 )>xX*bX 

FOR iX *0 TO bX 
PX( 0 ). 1 X 
pX( 2 )-iX 

BITBLT safdbXO.dafdbXO.pXI) 

DEC pX(<I) 

DEC pX{ 6 ) 

NEXT IX 
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EHOIF 

REIURN 

—> Dlbuja u& frail elrculo, an al eual aa ancuantra un clreulo 
paquaflo. Luafo aa laa toda la pantalla an « atrlnf y a eontlauaeldn 
aa raflaja aobra al aja vartlcal (covarar BITBLT ao al apartado 
llaaadoa da LINE<A). 
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9 “ Ad«lnlatraelAa da aaantoa, aasAa y vaataMS 
Adaialstraclda da araBtoa 

Bxlitan Inatrucclooaa aapaclflcaa dal GFA-BASIC, con la* cualaa ae 
puadan aollcltar avantoa (an la llcaratura para GDI llaaadot avanta) 
an foraa aancilla. Batoa avancoa aon la pulaacldn da una tacla dal 
ratOn, la pulaacldn da una tacla, la auparvlaldn da laa coordanadaa 
dal ratdn an ralaclte een doa aactnraa ractanfularaa da la pantalla y 
la antrada da tat *QSl-aaaaafa*, *f> al cual aa ancuantran por aj. 
lA/oraaclonaa par la adalnlacracldn da vantanaa. 

La auparvlalOn da aataa avantoa aa conacta aadlanca un ON MENU jdcx 
OOSUB, donda toot aa al avanto. al cual aa daba caacclonar. La 
auparvlaldn tlana lu(ar a travda da la tnacruccidn ON HENU. Cada vaa 
qua aa liana aata Inatniceldn aa ravlaa. al Ha tanldo lufar un avanco. 
Cuando aparaeld un evento franca al cual aa ha da raacclonar, aa 
blfurca hacla al procadlalanea fljado a cal fin. 

ON MENU(tj 

c: laxp 

La Inatruccldo OH lONU aupaivlaa la nparlclOo da avantoa. Ancaa da 
aata Inatruccldn aa dabarla fljar, a qua procadlalanto dabarla 
blfurcaraa al prograaa anea tat dacanlnado avanco. Laa Inscmcclonaa, 
con laa qua aa flja dato aa daacrlban an al raato da aata eapltulo. 
Para una conatanca aivarvlaldn da un avanco aa nacaaarlo ajacucar 
mpacldaa vacaa aata inatruccldn. Por aao, la inatruccldn dal ON MENU 
aa ancxiantra noraalaanca an una aatmccura da rapatlcldn. 

SI pardaatro t cooUana al claivo (an alldalaaa da aafundo). deapuda 
dal cual ha da floallaar la inatruccldn ON MENU. El objatlvo da aata 
Indlcacldn dal claapo conalata an qua al QQI da vat an cuando no nota 
qua aa daja da pulav tata tacla dal ratdn ( aPacto tlplco: aa Invlarta 
al caapo da clarra da tata vantana, paro la vantana paraanaca ablarta. 
haata qua aa vualva a andrglcananta variaa vacaa ada), lo cual 

no dabarla volvar a ocurrlr an al aaplao da aata varlanta da 
Inatruccldn. Sin aabario. la condlcldn aa auparviaar taabldn laa 
caclaa dal ratdn. Para alio aa nacaalca una Inatruccldn ON MENU BITITON 
a.y.x OOSUB. 

BJavlo: 

OH KDAi ainroH 1.1.1 qosub taac 
Cl«TINS( 

REPEAT 

PRIKT (TlNER-tS}/200 
OH MBNU 2000 
UHTIL M0USBX«2 
PROCEDURE caat 
REIVRN 

— > Sa vlauallaa cada doa aafundoa al claapo daada al coalaoxo dal 
profraaa. Si aa pulaa la tacla Itqularda dal ratdn. aparace al avanto 
a daacubrlr. y ON MENU flnallaa ancaa da tranacurrldo al lapao da doa 
aafundoa. La pulaacldn da la tacla daracba dal ratdn produca la 
datancldo dal pracrana. SI aa aodlflca la prlaara llnu: ON MSIU 
BtnrON 0,0.0 qosub taac. aa daaconacta la auparvlaldn dal ratdn, y al 
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parAMtro del tleape decr«a d« ON HB<U no tlena aAe efecto. 

MDni(s) 

x: eexp entE« -Z y 15 inclusive 

En les varlsbles HDIU(>2) hssta KBIU(15} •* encuantran codes las 
InYoraaelones relevances para el aanejo da avantos. Para al caso, an 
que se elifld una Inacrlp^dn de aenu en un aanii pull-doen. flfura en 
KENIKO) al Indies da la laocrlpcldo eleflda an al arraflo de las 
Inscrlpelonas de aends ( var al slfuleota apartado y profraaa da 
ajaaplo al rinal dal apartado sobra aanus pull-down). 

El NO<U(-2) contiena la dlraccldn dal aasaafa-buffar. y an MEmj(-l) se 
ancuentra la dlraccldn dal euarpo dal aand pull-down. 

En las varlsbles HD(ll(l} a NQnj(8) se ancuentra al aossaga-buffer y en 
NB1U(9) a ltOnj(15) el bloqua AB-Intecar-Outpuc. Ahora sa dlscutlrd 
braveaenca la utllldad da las Infonaclonas qua sa encuantran an estos 
lufaras. 


El punco da parcide da esta snAllsls as el NQAI(l) y el aesaaca- 
buffar. En NQfU(l) flfura al ndaaro caractarlaclco dal avanco 
aparacldo. Los deads alaaentos dal aassafa-buffar eontlanan dlferantes 
Infonaclonas safCin al NBNU(l). La slculenta tabla rasusa estss 
Inforaaclonas. Sa Indies an cads caso al valor da HEMU(l). luego al 
slgnlflcado da esca valor y flnalaanta las variables, an las cualas se 
encuantran raspacclvas Inforaaclonas laportsntes a asta valor dal 
KQflld). Eacas Infomaclooes son laportancas aspaclalsente pars la 
cormeta adainlstrscldo da vantanas. 


HENV(l) 

KENU(O) 

KENU(<I) 

WNU(5) 


10 Sa selecclond una inscrlpcldn da aend pull-down. 
Indies da la Inscrlpcldn dal aani) en al arraglo da 
Inscrlpcldn. 

Indlca-objato dal Cltulo dal sand. 

Indlca-objato da la inscrlpcldn da sand salaccionada. 


HEmill) 

HEmj{4) 

NQO)(6) 

mwu(7) 

HENV(S) 


20 Sa daba volvar s dlbujar un fragaenco rectangular da la 
van tana 

Kanalo (handle) da la vantana. 

Coordanads s Isqularda del fragnanto da la vantana. 
Coordanada y auparlor dal fragaanto. 

Ancho dal fragaanto. 

Altura dal fragaanto 

(Blaaplo an ON MQflJ NESSAoe OQSUB). 


NENir(l) • 21 
HS<U{4) 


Se sctlvd una vantana (noraalaanta qulara dacir qua al 
usuarlo qulara acclvar asta vantana) . 

Hanajo (handle) da la vantana sctlvada. 


HEKU(l) *22 Sa actlvd al caapo da clarra da una vantana. 
HQnj(4) Hanajo (handle) da asta vantana. 


HBAIU) 

HEHV(4) 


23 Sa actlvd al caapo superior daracho da una vantana 

(noraalaanta qulara dacir qua al usuarlo qulara Haver 
la vantana a su BAxlao taasAo) 

Manejo {handle) de asta vantana. 
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NOnJU) 


ICMJ(3) 


HEKU(l) 

HaiV(4) 

NENU(5) 

KEMJ(l) 

KSnj(4) 

KB«(5) 

MENU(l) 


HENU(4) 

MJftt(5) 

KB(U(6) 

KD(U{7) 

HENV(&) 

KSnJU) 

NQ(U(4) 

«W(5) 

HB*U(6) 

KB(U(7) 

KENU{8) 

HBlUd) 


MBni(4) 
HENU(l) • 


HEMJ(4) 
HOnj(l) • 


HQfll(4) 


• 24 Se acclvd uno de los cuaCro csapot do flechaa o una 
aona de fljacldn del aarco de la ventana. B1 
deaplazaalento de un regulador lleva a NBnj(l)«25 o 
blen 26. Aqul solo se anallza. si se ha actlvado a la 
derecha o a la Izqulerda de la poalcldn actual del 
regulador an la zona de fljacidn. 

Manejo {handle) de esta VMttana. 

Qu4 ba sldo actlvado? Vale la slgulente aslgnacldn: 

0: por enclss del regulador derecho 
1: por debajo dal regulador derecho 
2: flecha hacla arrlba 
3: riecha hacla abajo 
4: a la Izqulerda del regulador Inferior 
5: a la derecha del regulador inferior 
6: flecha hacla la Izgulerda 
7: flecha hacla la derecha 

■25 £1 regulador Inferior ha sldo deiplazado. 

Hanejo (handle) de la ventana. 

Poaicldn del regulador (niiaaro encre 1 y 1000). 

•26 El regulador derecho ha sldo dssplazado. 

Kanajo (handle) de la ventana. 

Poaicldn dal regulador (ntiaero entre 1 y 1000). 

27 Se Bodlflcd el taaaflo da la ventana con ayuda dal 
eleeento de aanejo derecho Inferior. El nuevo taaaflo de 
la ventana se recoma en: 

Kanejo (handle) da la ventana. 

Coordenada a Izqulerda. 

Coordenada y superior. 

Ancho da la ventana. 

Alcura de la ventana. 

28 Se aodlfled la poaicldn de una ventana. las nuevas 
coordenadas figuran en: 

Manajo (handle) de la ventana- 
Coordenada x Izqulerda. 

Coordenada y superior. 

Ancho de la ventana. 

Altura de la ventana. 

29 Se actlvd una nueva ventana con el GOC. Bsco puede 
ocurrlr al cerrarse una ventana ublcada arrlba de 6sta. 
si corre por ej. un accesorlo. 

Hanejo (handle) de la ventana. 

40 Pue elegldo un accesorlo. Eats valor solo puede ser 
reclbldo por tin accesorlo. que en base al valor qua 
figure an HENV(4) ha de anallzar al ha sldo llaaado o 
no. 

Huaero de idenciflcacldn del eenu del accesorlo. 

41 Se cerrd un accesorlo. Eate valor solo puede ser 
reclbldo por un accesorlo. el cual debe anallzar 
en base al valor que figure en HBNU(4) al ha 
sldo flnallzado o no. 

Ndaero de IdentlficaclOn del aenii del accesorlo. 
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Lu variable! KEMU(9) a KENU(15} y CUNTDUr{0) a QINT0UT(7) contlanan 
laa sltulentei Inforaaclcnaa, si oi KSnj(9) sa flj4 el bit para el 
correapondlente evente: 


En HBIU(9) figure un bit caraeterlstico qua describe el tlpo de evento 
qua ha ocurrldo. La aslgnacldn ea: 


Bit 0 --> 
Bit I — > 
Bit 2 ”> 

Bit 3 — > 
Bit 4 — > 
Bit 5 — > 

MBIUUOI 

KEinjan 

KENU(12) 


MENU(13) 


MOni(l4) 


KENUU5) 


ceelado 

tecla del ratdn 

racdo ha abandon ado/ ingresado al rectingulo 1 
ratdn ha abandonado/ingresado al rectAngulo 2 
ha tenido lugar un aenaaje del Beasaga-buffar 
indlcador del tiaapo (ciaer) 

Poaleidn x del ratdn euando ae desancadana el evento. 
Poalcidn y del ratdn euando sa desancadana el evento 
Escado de las teclaa del ratdn. vallendo lo algulente: 

0 "> Hlnguna tecla pulaada. 

1 — > Tecla isqulecda pulssda. 

2 Tecla darecha pulaada. 

3 --> Aabaa teclaa pulsadaa. 

{EJeaplo en ON HBflJ BUTTON x.y.a QOSUB) . 

Cstado de las teclaa de conautacidn; para cada tecla de 
eonautaeldn pulaada. sa fija un bit. Vale la slgulente 
aslgnaeldni 

Bit 0 ”> Tecla Shift derecha 
Bit 1 — > Tecla Shift isquierda 
Bit 2 — > Tecla Control 
Bit 3 Tecla Alternate 

(Ejeaplo en ON MENU KEY QOSUB) 

Infomacldn a craves de la tecla pulsada. Bn al byte ln< 
ferlor flgura el eddigo ASCII de la tecla pulaada, en el 
byte superior al eddigo Scan (ejeaplo an OH MD(U KEY 
QOSUB). 

Cantldad da dies dal ratdn (activacionea) . qua condujeron 
al evento. 


ON MENU BUTTON cllca. tecla, eatadoOOSUBproc 

dies, tecla, as tado: leap 

proe: noabre de un procedialento 


Bata Inatmccidn altva para aupervlaar las teclaa del ratdn. En las 
variables dies, tecla y eacado as define, qud estado de laa teclaa 
debe llevar a la raaiflcacldn hacla el procedialento proe. 

En dies figure la cantldad maxima de dies de las teclaa del ratdn a 
registrar. En tecla flgura, quS coablnacldn de teclaa ae eapera. Bn 
eate caao vale: 


0 ana tecla. 

1 —> tecla Isquierda. 

2 •■> tecla derecha. 

3 --> aabaa teclaa alaultSneaaente. 

La expresldn estado Indlca. qud estado deben tener laa 

eorrespondlentes teclaa. En esta caao dice 0 para una tecla no pulaada 
y 1 para una tecla pulaada. El noabre proe Indies, a qud procedialento 
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■a deba r«Aiflcar. cuaodo ha tanldo lusar al avento daacripto a cravta 
da ellca.cacla y aaeado. 

La auparvlsldn tlena lugar con la Inatruccldo ON MENU. 

EJaaplo 

ON HOnj BUTTON 1.1.0 GOSUB boa 
CRAPHNODE 3 
REPEAT 
ON MENU 

UNTIL H0USQC«2 

PROCEDURE boa 
ADD IS.7 
IP 1S>200 

Q<DIP 

BOX 320-1S.200~1X.320*1I.200*1S 
REIURN 

--> Dlbuja un Juago gr4flco an la pantalla. alencraa no se pulaa la 
tacla Ixqulerda dal ratdn. La pulaacidn da la tacla daracha dal ratdn 
flnallsa al prograaa. 

ON MENU KEY GOSUBproc 

proe; noabra da un procadlalanto 

Eata Inatniccldn Inatala una a\iparvlsidn dal caelado. proc aa al 
noabra da un procadlalanto, al cual aa ha da raalflcar. cuando sa 
pulaa una tacla duranta la Inatruccldn ON MBAJ. 


BJeaplo: 

ON MENU KEY GOSUB kay.auaaartung 
REPEAT 
ON MENU 
UNTIL H0USEX«2 

PROCEDURE key auawartunf 
PRINT Taclu da conautaclte: ';HENU(13) 

PRINT 'Cddlfo ASCII: *;BrTE(KD(U{l<>} ) 

PRINT ‘Cddlgo Scan: *iSHR{NE»U(l>l) .S) 

PRINT 

HEIVRN 

— > Cuando aa pulaa una tacla aparaca al aanaaja dal tatado actual da 
laa taclaa da conautacldn del taclado (Shift. Control, Altamata) y loa 
cOdlgoa ASCII y Scan da la tacla pultada. La pulaaeldn da la tacla 
daracha dal ratOo flnallxa al profrana. la NBNU(x) var loa 
algnlflcadoa da HEHUU3) y MBKU(14). 

ON MENU IfiOXnr.x.y.b.bOOSUBproc 
ON MENU OeOXnr.x.y.b.hOOSUBproc 

nr.x.y.b.b: laxp 

proe; noabra da un procadlalanto 
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Eatu doa Inatrucclonea aupervlaan laa coordanadaa dal ratdn. Cuando 
al ratdn antra an una aona ractancular da la pantalla (IBOX) o cuando 
la abandona (OBOX), aa raalflca hacla al procadlaiento ptoc. 

Ea poalble an eate caao. daflnlr doa zonas rectansularaa da la 
pantadla. qua aon aupacvlaadaa indepandlentaaanta antra al. Nr as al 
nuaaro dal corraapondlenca rectdnsulo. x as su coordenada x Izqularda, 
y ea la coordenada y superior, b as al ancho y h la altura del 
rectdngulo. 

La suparvitldn tlana lu^ar durante la ajacucldn da una instruccldn ON 
MENU. 


Ejeaplo: 

ON HEMJ IBOX 1,250.130.140,140 GOSUB rain_in_box 
OH MENU OBOX 2.50.50.540,300 OOSUB raus_aus_box 

GRAPKHOOe 3 
BOX 250 . 130 . 390,270 
BOX 50 . 50 . 590.390 
RB>EAT 
ON MENU 
UNTIL M0USB(«2 

PROCEDURE rein_ln_box 
BOX 250*iX.130»«.390-iX.270-i> 

IF iX«70 
1X*2 

EHDIP 
ADD 1J.2 
RETURN 

PROCEDURE rau8_aua_box 
BOX 0»JJ!.0»J».639*JX.399-JJ 
IP jx»o 
JJ-50 
ENDIF 
SUB JX.2 
RETURN 

— > Cuando el ratdn antra an al ractingulo in tamo, tlana lugar alii 
un Juego grAflco. Cuando abandtma al cectbifulo axtamo, el Juago 
tlana lugar an al ractdngulo axtamo. La pulsacldn da la tacla darecha 
del ratdn Tlnallza el prograaa. 

ON MENU MESSAGE OOSUBproc 

proc: noabre da un procadlaiento 

Cuando antra un aansaja an el sassaga-buffer, el prograaa sa blfurca 
hacla el proeedlaalnto con el noabre proc. La supaivisldn del aasaage- 
buffer tlana lugar an la Instruccldn 0N>HEHU. La astructura dal 
aassaga-buffar sa dlscuta an al apartado sobre al KBlU(x). 
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Ejeaplo: 

DIM aS(lO) 

FOR 1X«0 TO 10 
READ aSUX) 

NEXT IX 

DATA Desk, Redraw . 

DATA 

OPENW 4.0.0 

Hon; Bto 

ON H£»U MESSAGE OOSUB eessace.euswertung 
PRINT AT(l.l): 

REPEAT 
(M HB<U 
UNTIL N0USQ(«2 

PROCEDURE ■easage_auswertunx 
IP HEHUU)*20 
PRINT CHRS(7) 

PRINT *Un reeorte de pantalle* 

PRINT *debe ser dlbujade de tuievo.* 

ELSE 

PRINT CURS(7) 

PRINT *Ele paaado elfo Ml* 

ENDIF 

RETURN 

"> Pare prober esce Uacado debe ester cerfedo un eecesorio. Cuando 
se lo aelecclons. el progreee so da cuenta que ha sldo capado un 
fra^aento da la pantalla y reports el aensaje de Sato (ver taebldn 
HQ<U<x)). A1 coelenxo del pcograaa taeblAn aparece este aensaje una 
vez. El pro|raas se puede rinalltar pulsando la taels derechs del 
ratdn. 

Heads pull-dowo 

En sate apartado se Introducen las Inscrueciones especlflcas del GFA* 
BASIC 3-0 para la adainlstraclOo de eeniis pull*down. Laaentableaenta 
er.lste an la literature una cierta confusidn de tdralnos relaclonados 
con este teas. Por eso se debe declr squl en prlaer lugar. qud 
slgniflcado ban de tener en este eanual los tdralnos relaclonados con 
este teas. El tdrmlno send pull-down lo usareeos coao eoncepto 
principal. la lines superior de la pantalla se ancuentra la parte 
peraanentsnente visible dal aend pull*down, la zona del eend. Esta 
contlene los dlferentes titulos. Cuando la Tlecha del ratdn llega a 
uno de estos titulos. se "desdobla” debajo da esta tltulo un llaeado 
•enu. Cada parte de esta eend. qua se puede selecclonar 

Indlvldualesnte , se llsaa Inscrlpclte de send. Esta eleccldn de 
tAralnos no tlena cardeter obllgatorlo general. aino qua vale 
unlcaeente pare este eanual ; on algunos llbroa se use otra 
cerelnologla. 

Cuando se Instala un aenu pull-down, se fljan sue inscrlpclones an un 
arreglo string aS(). Esta aeoii pull-down se lleva a la pantalla con la 
Instruccidn HENUaS(). U Instruccldn ON MENU OOSUB flja un 
procedlelento, al cual se puede raalflcer despuds de la eleccidn de 
una inscrlpcldn del eend. Durante le ejecucldn del prograaa se examine 
cada vez qua aparece una Inatruccldn ON HENU, si se ha selecclonado 
una Inscrlpcldn. 
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La Inacripclte MSni OFF vualva a rapraaantar iaaerlpclonaa Invercldaa 
da la zona dal aeou an la latra ooival. Con NBiU KIU. aa daaconecta al 
aanil pull-down. 

La inatruccldn HQAIz.y paislta tildar Inacrlpclonaa da aanO o 
repraaantarlaa an latra clara, lo ^ua llava a qua eata Inacrlpcldn da 
aanii no aa puada aalacclonar aAa . 

ON MEMU GOSUBproc 
MENUaSO 

orlc: noabra da un procadlaiento 

aS(): arraglo atrlng 

Escaa doa Inatrucelonaa aon raaponaablaa para la genaracldn y 
adalnlatraclOn da un aend pull-down. alendo apoyadaa por laa 

Inatniecionaa y varlablaa dal apartado ancarlor (ON KSIU, MSnj(i). 
Con ON MENU OOSUS proc aa flja un procadlalanto, hacla al cual aa ha 
da raalflcar daapuAa da la aalaecldn do una Inacrlpcidn dal aend. Si 
aaca Inacrlpcldo aa un aecaaorlo, no aa aetlva aate procadlalanto. 
Oantro dal procadlalanto aa puada dataetar eon la varlablo KENU(O), 
qua Inacrlpcldn del aanU ba aldo eloflda. MBNU(O) aa al indlco da la 
Inacrlpcldn alaglda an al arraflo da laa Inacrlpclonaa aS(); 
aS{HENU(0)) aa por lo tanto al taato aetlvado an al aand pull-down, 
cuando vala OPTION BASS 0. Cuando aa ha eonactado OPTION BASE I, al 
texto da la inacrlpcldn aleflda aa ■I(NQ(U(0)*1) . 

HENUaSO rapraaanta al aanu pull-down an la pantalla. al caapo da 
cadanaa da caraecaraa aS() flcuran loa Cituloa, inacrlpclonaa y 
raitrvaa da lufar para loa accaaorloa. Sa daba raapatar al alfulanta 
foMato cuando aa ordanan laa Inacrlpclonaa an al caapo aS: 

al(0) Tltulo dal aand, an al qua puada habar accaaorloa. 

asil) Noabra da la prlaara Inacrlpcldn an al prlaar aanu. 

aS(2} Una aacuancla da Blfnoa aa n o t (-). 

bS(3)-oS(S) Raaarvaa da lufar para loa accaaorloa. 

Sa trata dnlcaaante da aala atrlnfs con un larfo aayor 
qua caro. Si aa ban carfado accaaorloa cuando aa conactd 
al rafulador, antoncas aparacan aa al aand pull-down 
bajo au noafare. caao eontrarlo no flguran las corraapon- 
dlantas Inacrlpclonaa da aand. 

aS(9) Un atrlnf nulo. qua aarea al final dal prlaar aanO. 

Todoa loa daaAa aands tlanaa al alculanta foraato: 

1. Tltulo dal Band. 

2. Liata da inscrlpclonas dal aaod. 

3. Un ttrinc nulo. qua .aarca al final dal aand. 

DetrAa dal dltlao aand alfua otro atrlnf nulo. qua aarca al final da 
todo al aand pull-down. Una inacrlpcldn da aaod, qua ccalanza coo im 
tlgno aanos, aa rapraaanta autcadtlcaae n ta an fona clara y no sa 
puada alsflF. 

EJe^lo: Var final da asta apartado 
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MB<U OFT 
MENU KILL 

Cuondo se ellg« uoa Inacrlpcido de aand sa Invlarta al tltulo dal 
■enCi. MDflJ OFT ravierca el titulo al eatado nocaal. 

MENU KILL desconacta el aenu pull'dowi; aunqua no sa aleja da la 
pancalla. KQ<U KILL desconacta adeaAs laa conexlones OH NBNU GOSUB. 

MENU x.y 

x.y: aaxp 

Con asca Inscruccldn aa puada raublcar la n*slaa Inscrlpcldn de un 
Band pull'down. La anuaaracldn da las Inscripclonas aquivala a los 
Indices dal arraglo string, an al cual flguran las Inscrlpciones dal 
■and pull-down. El recuaoto coalanaa entoncas an caro: los titulos, 
las inscrlpciones dunay para los accesorloa y los strings milos se 
cuentan. 

El sagundo pari>atro y Indies. qu6 sa daba ocurrlr con la x-siaa 
Inscrlpcldn. Aqui vale la slgulanta aslgnaclOn: 

y Bfacto 

0 — > sin tilde adalanta. . 

1 -*> fljar adalanta un tilde 

2 — > latra clara. 

3 •'> latra no real. 

EJeaplo: Var al final dal apartado. 

Prograaa da ajaaplo para el apartado aobra aands pull-do«si 


DIM alntragf{20) 

1*— 1 
REPEAT 
INC IX 

READ alntragS(lX) 

UNTIL elntragS(lX)>*Tinal* 
alntragSUX}*"' 

HIM) alntragSU 

ON MENU OOSUB auswartung 

OPBW 0 

DATA Oeak. Test , .1.2. 3.4. 5. 6. 

DATA Pile, Load . Sava . , Quit , 

DATA Tlculo. Valor 1 , Valor 2 . 

DATA Final 

REPEAT 
ON MENU 
UNTIL M0USB(«2 

PROCEDURE auswartung 
MENU OFF 

' MENU(O) contlene el Array-Index dal itea de send 
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aX«HOnj(0) 

PRUrr elntra«${BX) 

ALERT 0.’Quler« un tilde SI | Ho *.«S 

IP aS*l 
HOni bS.I 
ELSE 

HENU bJ.O 
QflllF 

ALERT O.’Latr* cIbtb 7|(cio Mlecclonabla)*.!.* SI | No *.aS 
IP aX'l 
KQIU bJ.2 
ELSE 

MENU aS.3 
ENDIP 
RETURN 

••> Oanora y adBlAlatra un Bend pull-down. Cuando «b actlva una 
InacripclOo dal Benii a# aacrlba su taxto an al aonltor y aa prafunta, 
cOao aa ha da rapraaantar la inscrlpcldn dal aand alagldo. 

InatrueeloDea para waataBaa 


El OFA-BASIC brlnda alfunaa inatrucelonaa aanclllaa para la 
adainlatraeidn da vantanaa, laa cualaa no bob auy flaxlblaa (OPENW. 
CLOSEU. CLBARU. TITLa«. INFOH). Si aa qulara procraaar una 
adainlacracidn da vantanaa aflelanta. aa dabm uaar o blan laa 
eorraapondlantaa rutlnaa AES o fljar loa pariBatroa da la vantana 
daaaada an una tabla (VINDTAB) y volvar a llaaar la vantana. Adaata aa 
diapona da laa funclonaa H_BANS y coao aalabdn da union antra 
Inatrucelonaa aanclllaa dal QPA-§AS1C para la adainlatraclOn da 
vantanaa y laa funclooat AES aapllaa provanlantaa da la blbllotaca da 
vantanaa. 

Laa Inatrucelonaa aanclllaa partan da poalelonaa da vantanaa poco 
variablaa. Un canto da la vantana alaapra aa ancuantra an la Blaaa 
poalclOn, Blantraa qua al otro canto aa ancuantra an al pun to da 
eontacto da laa cuatro vantanaa. 

Cuando aa uaan laa Inatrucelonaa aanclllaa aa flja al punto earo dal 
alataaa da coordenadaa pan lapraalonaa da eaato y da frATlcoa an al 
axtroBo auparlor Ixqulardo da la vantana. Aunqua aato no lo tlanan on 
euanta alfunaa inatrucelonaa eoao por aj. OET y PITT. BITSLT.atc.. Laa 
iBprealonaa da frAflcoa y da taatoa qua abando n a n la vantana aa cortan 
ButoBAticaBanta (cllpplnf). 

OPENwrn . X , y . u ,h , at tr 
OPDlHnrC.x .poa.y_poa] 

CLOSeMCAjnr 

nr,x_pea,Y _poa: aaxp 
n.x.y.h.attr: laxp 

Con OPENW aa abra la vantana con al niiMro nr. Loa parABotroa x_poa a 
y_pos dateralnan la poalcldn da una canto da la vantana: «i cada caao 
al canto anfrantwlo an dlaconal aa fljo . Para iota adalnlatracldn da 
vantanaa aAa variabla aa nacaaltan laa rutlnaa AES o HINDTAS. Laa 
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coordenadaa (x.y) de las poslbles ventanas sod: 


Nr Parce izquierda superior 


Pares derecha Inferior 


1 (0.19) 

2 (*_pos.l9) 

3 (O.y_pos) 

4 (*_poe.y_pos) 


(x_pos.y_poa) 

(639.y_pos) 

(x_pos.399) 

(639.399) 


Por lo cento, el punco (x_pos,y_pos) es el punCo de contecto de las 
cuacro vencanas. 


Con la InsCruccldn C^BN 0 tto se abre una vencana real, slno <|ue se 
deaplasa condlclonalaenca el orlgen da las coordenadas al punco 
(0.19)- Enconces no se pueden alcansar sAs las 19 llnaas superlorea da 
la pancalla eon Instrucclones de isprealdn de frAflcos o da taxcos. 
Esco es dell, para no escrlblr sobre una zona de sand pull-down . 

La InsCruccldn CL0SB< clerra la vencana con el ndnero nr, CLOSCWt 
clerra la vencana con el Indlce n. 

BJeeplo: (var taablAn el profrasa sjaeplo al final del apartado). 

REPEAT 

IF HOUSBC*! 

CLOSED 1 
OPEKW 4.320.200 
ENDIF 

IP H0USQC«2 
CLOSBW 4 
OPDW 1.100.100 
EMDIP 

UtniL M0USEX*3 
CLOSED #1 
CLOSED «4 


— > La pulsacldn de la Cecla izquisrda del ratdn abre la ventaos 11. 
la pulsacldn de la Cecla derecha tel ratdn la vencana 4. SI se pulsan 
asbas teclas siaulcAneaaente se finalize el profraaa. 


TITLED *l.*Tltel” I dffnec Fenscer ait Index 1 

INFOH # l.STRIN0$(15.*....|'} I Infozelle vorbelafoi 

OPENW «1.16.32.600,300.&X111111111111 I Koordlnaten * Atcrlbuta seczen 
-INP(2) 

CLOSED II I wlchtlfl I . Fenster schlieen 

--> Abre una vencana con linaa de tltulo e Info. La pulsaclda te una 
cecla finalize el pro(raaa. 

H_HAND(ln) 

W_INDEX(fhd) 

n. hd: aaxp 

H_KAND da el GEM-Kandle te la vencana. cuya caracterlzacldn se indlce 
en n. W_INCEX es la funcidn inversa de la otra y retoma el ndaero de 
vencana correspondience al 09l*handlo. 
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Bjeaplo: 

OPEMW 2 

PRlXr H KAND(«2) 

•1XP(2)“ 

CLOSBW f2 

--> Escribe el handle de la vantana con la caracCerixacldn 2 an la 
pancalla. SI se pulsa una tecla flnallxa al profrasa. 

CLEAIN[l]nr 

TITL£U[«]nr.s$ 

INPOHC*]nr,aS 

T0PH#nr 

PULLUC^lnr 

La iMCruccldn CLEARW borra la vantana con al ndaaro nr. TITLEH 
ascribe an la llnaa superior da la vantana nr al taxto aS. IXFOU 
ascribe an la llnaa da informacldn aubyacanta de la vantana nr al 
taxto at. TOfV active la vantana con al ndaaro nr. FVU.W llava la 
vantana nr a su total taaaAo da pantalla. 

EJaaplo: 

OEFFILL 1.2.11 

PBOX 0.0.639.399 

0f>B(W 1 
PAUSE 50 
FUU.W 01 

PRINT *Vantana 1* 

OPENV <t. 100. 100 
PAUSE 50 
CLEARW 1 
0P9IH 3 
PAUSE 50 
TOPii »1 
PAUSE 50 
CLOSEU II 

TITLEH 'Vantana 4* 

IXFOW 3. 'Vantana 3* 

PAUSE 100 
CLOSEH 13 
CLOSEH 4 

— > Oaja vlauallsar alffunas vantanas. las aodlflca y las vualva a 
descoaponer. 

WlXirrAB 

WlHOTAB(l.J) 

l.J: laxp 

A partlr da la dlraccldn Indlcada an HlNDTAfi flfura la dlracclOn da 
la tabla da parAsatroa da la vantana. an la cual sa encuantran todas 
las inforaaclonaa qua dataralnao al as pec to da la vantana. Bn asta 
tabla sa puada fljar adaaU al punto caro da las l^raslones da 
criflcoa. 

La tabla estA coapuesta da 68 bytas y sa construya palsbra por palabra 
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(2 byteA Aon cAda vex una Inscrlpcldn an al tabla). El use de la tabla 
so llustra al final del «>artado an un prograna de ejeaplo. En este 
ejeaplo ae Inacrlben en la tabla de la ventana loa parAaetroa da la 
vencana a conatrulr y ae abre luego la ventana con 0 PQ<W. 

HINDTAB ( alallar a INTINO) taablta ae pueda actlvar coao caapo 
bldlaensional WINCTTASI). El prlaer indlce ea el nuaero de la ventana ( 

1 a 4 o 0) . el aegundo indice ea: 

0 para el handle, 1 para loa atributoa. 2 para la coordeoada x, 3 para 
la y, 4 para el ancho y 5 para la altura de la ventana { aedidaa 
extemaa) . 

WINDTAB se pueda actlvar taablAo a travda de DPOKE, loa offaets 
Indlvldualea tienen el algulente algnlflcado: 

Offaet Puneidn 

0 Hanejo (handle) de la ventana 1. 

2 Atributoa para la ventana 1 (Eatmctum ver aAa adelante). 

4 Coordenada x pare la ventana 1. 

6 Coordenada y para la ventana 1. 

8 Ancho para la ventana 1. 

10 Altura para la ventana 1. 

12 a 22 Loa valorea correapondientaa para la ventana 2. 

24 a 34 Loa valorea correapondlentea para la ventana 3- 

36 a 46 Loa valorea correapondl«itea para la ventana 4. 

48 -I 

SO 0 

52 a 56 Coordenadaa y eedldaa para la vencana OESKTOP(O) 

60 a 62 Coordenadaa pera el punto da eontacto de la ventana. 

64 a 65 Punto caro para laa inatruecloaaa de grAflcoa (CLIP OFFSET). 

Todoa loa llaaadoa AES, Llae-A y VDl dlrectoa al Igual que PUT, GET y 
BITBLT no raapetan al punto cero. 

La eatructura da la Inacrlpeldn del acrlbuto de la vencana se conforae 
bit a bit. Cada bit repreaaota una parte da la ventana. Cuando ae flja 
un bit. la vencana posee el correapondiante aleeenco de ventana: 

Bit Bleeento da vencana correapondiante 

0 Inacripcidn del CiCulo da la vencana. 

1 Caapo de cierre an la part# auperior itquierda. 

2 Caapo coapleto en la parte auperior derecha. 

3 Lines da cabecere. con la cual se puade desplazar la ventana. 

4 Lines info debajo de la lines da CiCulo. 

5 Caapo de aodlflcecidn del taaaflo en le parte derecha inferior 

6 Flecha seAalando hacie arrlba. 

7 Flecha aeAalando bacla abajo. 

8 Regulador vertical a la derecha. 

9 Flecha saftalsndo bacla la Izqulerds. 

10 Flecha aeAalando bacla la derecha. 

11 Regulador borlzoncal abalo. 

Bieaplo: 

' Ea poalble aisular OPQftj fn.x.y.w.h.actr por aedlo de UIHDTAB 
‘ En la veralbn 2.0 aolo ara poalble de eae aanara 
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«>ENW «1. 100.120.200, 70.U(FFP 

' enuprlcht 

DPOKE HINDTAB*2.UlPrP 
DI>0KE WIHDTAB«4 . 100 
N>0KE HINDTAB*6,120 
DPOKB WIHDTAB«d.200 
DPOKE WINDTAB«10.70 
OPSW t 

' ed«r 

WlNirrAB(l.l)«U{FFP 

WHO)TAB(1.2)«100 

W1NCTAS(1,3)«120 

WimAB(l,4)>200 

WIHDTAB(1,5}«70 

OPENW 1 


Otroa caaoa 

RC_urrBlSECr(xl.yl.«l.ia.x2.y2.w2.h2) 

xl.yl.wl.hl: laxp 

x2,y2.H2,h2: ivar 

La funclAn RC_mE}(SBCT (ractancla Intaraactlon) alrva para datarainar 
al aa auparponan doa ractAnculoa (dadoa por laa ooordenadaa dal canto 
ixqulardo auparlor (x.y) y por al ancho « y la altura b). 

Cuando loa ractiniuloa a# cortan, aa rataraa TRITE y x2.y2,w2,h2 
contiaitM daapuAa da babaraa llaaado la fiatclte laa coordanadaa y la 
auparflcla da corte. 

SI no raaulta nlnfuoa auparflcla da corta, aa racoma FALSE y 
x2,y2,v2,h2 contlanao laa coordanadaa da «a) ractinaulo. qua aa 
encuantra antra loa doa roctAnculoa Indlcadoa. Q ancho u2 o la altura 
h2 aon aneoncaa nagatlvoa o ifual a caro. 

Bata funeldn aa apllea caneralaanta para al trataalento dal 'Radraw' 
an eventoa OSI. 

EJaaplo: 

BOX 100.100.<I00.300 

x«200 

y200 

••300 

ri-150 

BOX x,y,x»w.y*b 

IF RC_IKrQSBCT(100.100.300.200.x.y,«.h) 

PBOX x.y.x*«,y*h 
EWDIF 

— > So dlbujan doa cactAafuloa y la auparflcla da corta aa rapraaanta 
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en nagro. 


RC_COPY»_adr . »x . *y , • . h , TOd_6dr . d* , dy [ . m ] 

a_adr.d_adr,sx,Ay,H,b,dK,dy,a: l«xp 

La Inatruccldn RC_COPY hace poaibla eopiar rectAngulos de la pantalla 
entre varlas pdginaa da la pantalla. Lm parAaetros a_adr y d_adr 
contianan la dlraccidn da la pantalla da origan (aourca) y la pantalla 
da dastino (daatinacloo) . Laa coordanadaa dal canto izquierdo auperlor 
asl coao al ancho y la altura dal rectdngulo a coplar aa tranaflaran 
an sx.sy.H y b. Laa coordanadaa dal canto auparior izquierdo dal 
ractAngulo da daatlno aon dx y dy. Opclonalaanta aa puada indicar un 
aodo da conaxldn (0 a 15, ccaparar PUT) . Sa praaalacciona para al uao 
al valor 3 para a. 

EJaaplo: 

FILESELECT 
IP EXlST(rt) 

OPEN *l*,#l.rt 
blldS* INPUTS ( 32000 . fl ) 
a_adrX«V:bildS 
d_adrS*XB10S(2) 

FOR iS-l TO 1000 

RC_C0PY a adrS.RAm)(10|*M.RA«)(:0)»40. 64.110 TO d_adrX.RAND(l0)*64.RAHD(l 

O^llO 

NBCT IS 

CLOSE fl 
snip 

— > Sa carga un archive an al foraato da la pantalla (32000 byta) y 
aa rapraaanta an fragaancoa da pantalla al azar. 

ALStTaya . tax tS . default . buttons . alaccidn 

aya. default: lexp 
texts, buttons; aaxp 
alaccldn; avar 

La inatruceida ALERT daja viaualizar un Alart*box an la pantalla. En 
la axpraaidn aya sa fija. qua alabolo daba flgurar an la aitad 
izquiarda dal Alart*Box. Vale: 

0 — > ningun alabolo. 

1 — > aigno da axclaaacite. 

2 -•> ai^io da intarrogacldn. 

3 "> cartel da atop. 

Bn la axpraaldo atrlng texts figura el texto. qua daba aparacar an el 
Alert-box. Se paraitm coao aAxlao 4 linaas de aAxlao 30 caractaraa 
cade una. Laa lineaa aa aeparan antra ai con un I. Laa lineaa qua 
auparan loe 30 caractaraa aon cortedaa. 

La expraaidn default del botOn da aelaccidn del Alert-box aa al 
llaeado Dofeult-buttoo. Eata botdo aa puada aleglr no aolo con la 
tecla del ratdn, aino taabidn pulaando la tacla Return o Enter. Si no 
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•xist* un buttcc con «1 zulaaro default, entooces no se puade abandonar 
el Alert-boi coo Return o &>tar. alno solo por eedlo del ratdn. 

La expresidn scrlnc button! eontleiw el tax to del button dal aend. El 
largo adxlao del testo por button as do 8 cerecteres. Los textos da 
los dlfereotea buttons ae seperen coo I. 

En la variable eleccidn ae retoma el ndaero del button elagldo ( 
cooparar FDIU(_ALBtT) . 

EJeaplo: 

ALStr l.’eiljajun botdn I'.l.’izqulecdoldereeho'.aJ 
ALERT 0.*He elagldo el botdn ’•Snt!(aX]*'.*.0,* Ok *,aX 

■■> Aparece un Alert-Boa con dos buttons. Despuds de eleglr un button 
aparece un segundo boa, qtie litdlea qud button he sldo seleeclonedo en 
el priaer box. Bate segundo Alert-box tM posee nlngdn aiebolo nl 
nlngun Default-button. 

nLESELECTcaelAoS . defaults . noeOraS 

caelnoS. defaults : sexp 
noabreS: aver 

Esta Instrueeidn hece aparecer un Ptle-Seleot-Box an la pantalla, eon 
al cual ae puade selocclonar un archlvo del indlee de un disco (RAN- 
Dlsk, diaco rlgldo. etc). 

En la exprestOn caeinoS figure el noabre de la disquatere y de la 
cerpeta. cuyo Indlca se he da presancar. Si no ae Indlea disquetara. 
se ellge la dlaquatera actual, defaults aa al noabra del archlvo. quo 
he da aparacar an le parts Isqulerda dal Plle-Soleet-Box coao 
preseleeclonedo. Bn noabreS se aneuencra al noabra del archlvo 
elagldo, daspuds da eetlvaree el Qk-button del Plle-Select-Button. SI 
se ellgiO al button da Interrupcidn. aoabraS contlana un string nulo. 

£1 foraato de caainoS. default! y noabreS aquivele a las convenclonae 
dal slBiaea Jordrqulco de archlvoe. qua se he deserlpto an el capltulo 
'Ingraso general de detoa y sallda general de datos*. apartado 
'AdelnlstraclOn da archlvoe*. 

(Coaparar FSa.lNPlTT.) 

EJeeplo : 

FILBSBLBCT *A\*. PRO*. 'CFABASIC.PHO* .noabreS 
IF noabreS*'* 

PRltrr ”Usted ha elagldo el botdn de Intemipcldn. * 

ELSE IF RIOnt(noabraS)**\* 

PRIKT 'listed ha elagldo el botdn OK sin litdlcar al archlvo.* 

ELSE 

PRIKT 'listed he elagldo al archive: *:noabraSi*.* 

omiF 

"> Se visualize un PUa-Salect-Box y se enellza la eleccidn qua toad 
el usuarlo. 
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10 - Rutlua d« al*t«aa 
GBKDOS, BIOS j XBIOS 

CEm)06(ar(.x.r...l) 

BXOS((u-C.«.y...j) 

XB10S(Ar,[.x.y...]} 

nr, X, y: laxp 

E*t«a tr«s fuDclonai parxltan llaxxr rutlnxa GEKDOS, BIOS y XBIOS. Con 
eacx flnxUdad m tranafleran an cada caao al nuaero da funcldn nr y 
la Uata da pariaatroa. Para poder cranafarlr loa pardaetroa an al 
foraato da varlabla corracto, aa puada fljar un W: o una L: delanta da 
loa parlaatroB. Loa pardaacroa caractarlaadoa con W: y aqualloa tin 
caractarlxacldn aa tranafleran anconcaa coao encaroa da alapla 
dantldad {I 6 bit), loa parbaatroa earactarlzadoa coo L: coao antaroa 
da dobla danaldad (32 blc) . 

Para aato var al anaxo. 

Bjaaploa: 

IF CBMBOSd?) 

PUKT ’Ivraaora liata* 

bi.<;b 

PRINT ‘lapraaora no eatd liata* 

B(D1F 

••> Bxaalna al aatA liata una lapraaora an la Intarfaae paralala 
(GBIDOSd?) ratoma al aatado da aallda da la Intarfaaa paralala). 

R^EAT 

UNTIL BlOSdl.-l) AND 4 

"> Eapara baata qua aa pulaa la tacla Control (BlOS(ll.-l) ratoma 
al aatado da laa taclaa da conautaclte dal taclado) . 

CIRCLS 320.200.180 

BHOVB XBIOS(2).XBIOS(2}*16000 . 16000 

Dlbuja un elrculo. eopla au altad auparlor an la altad Infarlor da 
la pancalla (XB1QS(2) ratoma la dlreccldn. an la cual coalanza la 
aeaorla flalca da la pantalla) . 


L:x 

V:x 


x: lav 

Bataa doa fUocloooa alrvan para tranafarlr axpraaionaa nuadrlcaa coao 
antaroa da alvla tenaldad (2 byta.W:) 0 da dMla danaldad (4 byta.Ls) 
cuaolo aa llaaan funclonea dal alataaa oparatlvo y mtlnaa C. SI no 
fifura nlnguoa caraetarlaacldn aa uaa al foraato palabra. 

BJaaplo: 

CIS 

FOR IS ■ 1 TO 100 
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BOX ftAND(639).RAND(399).RAKD(S39).RAND(399) 

NB<T t» 

PBOX 0.0.639,399 

OW ■cr^_2|(32255) 

phya_tMMS«XB10S(2] 

oXd_acrMnZ«plly« b*MX 

log b»«seJ>V:scr«m_2|(0)*255 AW tHFPFFTFOO 

repIat 

IP HOUSEK*! 

'X810S ( 5 . L : Ioc_b«MX . L : phya_baMS, •!) 

SWAP log bas«X.phy*_bM«X 
ENDIF 

PLOT NOUSEX.HOUSEY 
UNTIL M0USGX*2 

'xaiOS (5 . L : oId_«cr*«nX , L:eld_acrMaX ■ 'I ) 

-*> Cuando aa pulaa la eacla Izqularda dal racOn coMuca antra doa 
pAglnaa da la pantalla. La pulaacldn da la tacla daraeha dal racdn 
conduca a la dataneldn dal prograaa (var taabldn XBIOS). AdaaAa aa 
craflca an aabaa pAginaa da la paatalla ao la poalclda dal ratdn. 

LlBMdoa da Llna-A 

ACLZP, PSBT. PTST. ALlirS. HLINB, AUCT, APOLT. AC8AII, ATSXT 

En al algulanta apartado aa dlacutao laa Inatmeclonaa qua bAalcaaanta 
aqulvalan a Inatmeclonaa qua ya ban aldo tratwUa an al eapitulo 
aobra rapraaantaelonaa grAfleaa. Aunqua laa lapraalonaa grAflcaa aon 
an parta notorlaaanta aAa rApidaa a travAa da loa llaaadoa da Llna-A y 
uaan una aintaxla algo dlParenta. Dalanta da laa aalldaa grAflcaa da 
Llna-A dabarla fljaraa alaapra un clipping aadlanta ACLIP. ya qua alno 
aa puadan aobraacrlblr zonaa da la Boaorla qua aa ancuaatran fuara da 
la aaaorla da la pantalla. Slno taablAn aa uaa al clipping da 
cualqular Inatmccldn antarlor para grifleoa (VDI a ASS). 

Un llaaado da VDI aodlflca al clipping conactado con ACLIP. Laa 
Inatmeclonaa da Llna-A aon litdapandlantaa da laa Inatmeclonaa VDI- 
OEFxxx. 

Con raapaceo a la alaecldn dal eolar: Loa coloraa indlcadoa an laa 
mtlnaa da Llna-A aqulvalan a loa niiancoa dal raglatro da coloraa do 
hardwara (coao SETCOLOR) y no a loa ndaaroa qua aaplaa al VDI (COLOR). 

AC ILP f 1 ag . sain . yaln , oaa . yaaa 

flag,zaln.yaln.»ax.yBax: lozp 

Eata inatmccldn poalbllita la dateralnacldn da un ractAngulo da 
llaltaeldn, o aaa laa lapraalonaa grAflcaa a travAa da Llna-A aa 
llaltan a asta fragaanto ractangular da la pantalla. Bn zaln.yaln.nuz 
a yaax flguran laa coerdanadaa dal axtraao tzqulardo auparlor y 
daracho auparlor dal ractAngulo da clipping. Bn flagOO aa conacta y 
deacooacta al clipping. ACLIP no vala (laaantablaaanta) para PSET. 
PTST. ALINE. KLINE y BFIVLT. 
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PSEIit.y.f 
x.y.f: iexp 

PSCT aqulvsle a la InatrucclAn PLOT y poalbllita la riJaclAn da puntoa 
an laa coordaoadaa x.y an el color f. t puede aaualr en eate caao, 
segiin la resoluciOn. un valor entra 0 y 15> 

EJceplo: 

FOR 1J«0 TO 199 STEP 2 
PSET lX.iS.l 
NEXT IT 

— > Flja puntoa con ua Intarvalo d* doa pixel deade 0.0 haata 199.199- 

PTST(x,y) 

x.y: laxp 

La funcidn PTST equlvela a la funciOn POINT. Retoma el color, qua aa 
preaenta on la poaicidn x.y da la pancalla. 

BJaaplo: 

PSET 100.100 
x-PTST(200.100) 

PRINT x.PTSTUOO.lOO} 

--> Zndicm lc« eoiorea. qua Je preaencan an laa poaicionaa da la 

pancalla 200.100 y 100 . 100 . 


AUNExl.yl.x2.y2.r.la.a 


xl.yl,x2.y2.r.la,a: iexp 

ALINE equlvale a la Inacruccldn LINE, an eaca caao concienen xl.yl, 
x2,y2 laa eoordanadaa del pun to Inielal y final de la linea. La 
exproaldn f caoclane la InforaaclOn dal color y puede toner valorea 
antra 0 y 15 lacvin la reeolucldn (ver COLOR). En le ae tranafiare la 
Inforaacldn de Uta del dlaeAo de llneaa deaeado. Se crate da una 
adacara de l6 bit de lonyltud, on la cual cede bit (en el eodo 
sonocroeitlco) fljado correaponda a un punto a dlbujar. 

El pardaetro a flja el aodo frdfico y puede tenor valorea encre 0 y 3- 
Los alciuricadoa eate caso son loa algulentea: 

0 — > Reeaplaaar 

1 "> TranapacoDte 

2 -•> Invertlr 

3 Invertido traneparento 

EJeeplo: 

yeX»lNT(L-A-4}-l 

FOR 1*.0 TO 199 

ALINE iX.O.iT.yaT.l.UCFFFF.O 
NEXT IT 
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“> Dlbujai llneaA vertlcales a lo largo da toda la altura da la 
pancalla daada la eoordanada a 0 baata la 199- 


HLIHExl , y , x2 . f , a. dir , anc_dlaeAo 


xl,x2.y,f.a.adr,aiu_dltaAo: leap 

HLINB aoulvala a la lAatruecldn LINE, aunque coo aata Inatruccldn aolo 
sa puadan dlbujar linaaa borlzontalaa . En asca caao contlenan al y >2 
laa dos eoordanadas x a y la coordanada y da la llaaa a dlbujar. La 
expraaidn t contlana la litforaacldn dal color y puada tanar valorea 
antra 0 y 15 aagdn la raaolucldn (var COLOR) . SI parteacro a flja al 
aodo da repraaancacldn grAftca y a^lvala a ALINE. 

Dir aa la dlracclte da un caapo. an al cual flfuran laa Inroraaclonaa 
da blta para al dlaaAo da la llnaa (cada 16 bit). Ana^dlaaAo ea una 
aiacara.con la cual aatA conactada la coordanada V para aarvlr coao 
Indlea an la tabla da dlsaAoa da llnaa. Per aao anz_dlaaAo dabarla aar 
aanor an uno qua una potancla da dot (0.1,3.7.15> • • • ) . 

BJa^lo: 

ACLlP 1,0.0.639.399 

auaiarI>(XllUlimmmU010l01010101010 

t2«V:auatarX 

FOR 1J«0 TO 199 
HUNS 0.1X.639.1.0.tE.l 
NEXT IS 

"> En la variable dlaaftoS aa dapoaitan doa dlaanoa da linaaa do I 6 
bit. El lUtlao pariaetro HLINB aa por lo tanto 1 ( 2 dlaafloa). Laa 
linaaa dlbujadaa eon HLINB uaan anconeaa altamadananta loa doa 
dlaanoa da linaaa da I 6 bit qua flguran an dlaaftoS. 

ARECTxl . y 1 . x2 , y2 . f , a . dir . ana_dlaafto 

xl.yl.x2.y2.f.a.dlr.ana_dlaaftOi laxp 

ARECT aqulvala a PBOX. Bn aata caao xl.yl y x2.y2 aon loa cantoa 
enfrontadoa del rectAngulo. Loa pardaatroa f.a.dlr y Ana_dlaafto tlanan 
al alaao algnlflcado qua an KLINE. 

BJeaplo: 


ACLlP 1.0.0.639.399 

DIN Buatartll) 

auatarl(0)t|JC1010101010101010 
eua tarfc ( 1 ) ■4X0101010101010101 

Buatar adrS*V:auacar4(0) 

ARECT lOO.lOO. 200.200.1. 0.auater_adrS.l 

— > Dlbuja un rectAngulo rallano con un traaa qua aqulvala al fondo 
dal Daaktop 
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APOLYdlF_pkt,anz_pky.yOTOyl.f.B.dlr.an2_dlseAo 
dlp_pkt.»n*_pkt.y0.yl.f .■,dir,anx_di8e/lo: iexp 

APOLY tlene un clarto parecldo con la Inatruccldn POLYFILL, dlbuja un 
traao da llnaa Invlsibla carrado con n canto* y lo rallana con 
cualqular dlaeAo. Para alio aa tranaflar* an dir _pkt la dlraccldn dal 
arreglo. qua conclana an fonw aitamada laa coordenadaa x a y da los 
puncos. El parAaetro 'an 2 _pkt' contiana la cantidad da punto*. En yO a 
yl sa Indlcan laa coordanadaa y. laa qua dacaralnan quA parta del 
pollgono aa ha da rallanar. Lo* parAaetroa f ,a,dlr.anz_dlaaAo 
aqulvalan aquallo* an ULINE. 

EJaaplo: 

DIN xi{9).yA(9).BuatarA(l> 

FOR 1X«0 10 8 
xi.(lX)«RAND(100) 

NEXT IX 

^(9)*xA(0) 

adr_korX*V:xi.(0) 

auaiar4(0)**l 

*dr_Buat*rX*V:auatart(0) 

ACUP 1.0.0,200.200 

I 

FOR IX'l TO 6 

APOLY adr xkorX.9.0 TO 100.1,l,adr_auatarX.0 
NEXT IX 

--> Dlbuja al eraxo carrado da un poilgono, qua aa rallana a 
contlnuacldn. 

eiTBLTdlrX 

eiTBLTxXU 

dlrX: laxp 

xX(}: arraflo da antaroa da cuatro byta 

La Inatrucclta BITELT llama a la ruclna Lina-A del alaao noabra. 
Contrarlaaanta a aato, la Inatruccldn BITBLT con craa arrafloa da 
parAmatroa llaaa a una rutlna da VDI. En la variant* da la 
inatruccldn. an la cual aa Indlca una dlraccldn coao parAMtro. daba 
flcurar a partlr da aata dlracclOn una table da 76 byta da laiw. En 
la aigulenta table fl|ura al elcniricado da loa valorea an aata tone 
da la aaaoria. En la coluana Orfaat flfura la diatancla da lo* 
alaaantoa da la table dal ccmianzo da la table en bytaa. 

at la varlanta da la Inatruccldn. an la qua aa daba I n dl c a r un 
arreglo da cuatro antaroa da cuatro bytaa da por lo aenoa 23 alamento* 
fljura un parAmatro an cade elemanto del arraclo. Uatad puede obtener 
da la column* ladle* da la alfulaota table quA parAmatro daba rigurar 
an quA elemanto dal arreglo. 

La rutlna BmLT wxilflce loa parAmatro* aarcado* con un aaterlaco. 
Por aao reaulta ccnvwtienta trabajar eon la variant* da la 
InatrucciOn, qua uaa un arreglo coao parAaetro. ya qua so produce un* 
copia da lo* parAmatro* lndlc«lo* alii, a la cual accede luago la 
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rutlna BITBLT. Loa aleaontoa dal arrvKlo no •• aodlflcan an uto caso. 
En caablo. los oleBentoa d* laa tablaa aa aodlflcan al tranafarirae a 


una dlreccldn. 



Noabre 

Indlca 

orraat 

Slfnlflcado 

B WO 

00 

00 

Anche da la aacrls an pixel . 

b'kt 

01 

02 

Alcura da la aatrla an pixel. 

PLANE CT • 

02 

04 

Cantldad da planoa color. 

FG COL • 

03 

06 

Color dal prlaar piano. 

bo“col • 

04 

08 

Color da fondo. 

W>_TAB 

05 

10 

Cooaxldn Idflca para cede eoabiaacldn 
da plxal dal prlaar piano y del fondo. 

S XMIN 

06 

14 

x-offaat an la aacrlx da origan. 

s“ynin 

07 

16 

yoffaat en la aatrla da orlsen. 

S FORN 

08 

18 

Dlcaccldn da la aatrlz da origan. 

S^KXHO 

09 

22 

Offaac para la prOxlaa palabra dal 
alaao piano. 

S.KXLH 

10 

24 

Offaac para la prdxlaa llnaa da la 
aatrlz da origan. 

S_MXPL 

11 

26 

Offaac para al prdxlao piano da 
color ( 2 ) . 

D XHIN 

12 

28 

x-offaat an la aatrlz da daatlno. 

D miN 

13 

30 

y-offaac en la aatrlz da daatlno. 

d'form 

14 

32 

Dlraceldn da la aatrla da daatlno. 

D^XNWD 

15 

36 

Offaac para la prdxlaa palabra dal 
alaao piano. 

D_HXLH 

16 

38 

Offaac para la pcdxlaa llnaa da la 
aatrlz da daatlno. 

0_NXPL 

17 

40 

Offaac para al prdxlao piano da color 
(ala^ra 2). 

P_A00ft 

18 

42 

Indlcador an la table con dlaafloa da 
rellano. cuando no aa caro aa conaeta 
con AND. 

P_NXLN 

19 

46 

Offaac para la prdxlaa llnaa da la 
aatrlz da adacaraa. 

P_NXPL 

20 

48 

Offaac para al prdxlao color dal dlaaAo 
da rallano. 

P MASK 

21 

50 

HAacara Igual qua an HLINB. 

SPACE * 

22 

52 

loa algulantaa 24 bytaa alrvan coao 


Bjeaploa: 


DIN aS(lOOO) 

FOR 1S«0 TO 639 STEP 8 
LINE lj.0.639.399 
NEXT « 

GET 0.0. 639. 399. •> 
kirrarput(O.O.aS) 

• 

PRXEDURB BlrrorputlxX.yX.VAR xS) 

IF L01(xS)>6 laolo al hay alfo 
xxX«V:xl(0) 
aS*V:xt 
bS«IKT(aX) 
hX>lNT(aX*2) 
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INr{xxl}*l 

lNT{xxX*2}*hX 

itrr(xxS*4}*i 

INT{xxI.6}.l 

lHT(xxS«6)>0 

(xxS*10)*tK30 30303 

m{xxX*l4}.9999 

m‘{xx](*i6}>o 

{xxi*l8)«kS«6 

lKr(xxX«22>>2 

IKr(xxX*24)«SHR(bX*l6,4)*2 

IKr(xxX*26)«2 

IWT{xxX*2a)«9999 

lKT{xxS*30)>0 

(xx2*32}<XB10S(3) 

INT(wcZ>36)*2 

INT(xxX>3d)«80 

IKr{xxX*40)-2 

(xxX*42}*0 IpactAdr 

INT{x»J«46}"0 lp_n*tln 

IKr(xsS«46>*0 Ip.nxpl 

IKr{io(X«50)«0 tp_usk 

ABSOLUTE lfc.xxX>l4 
ABSOLUTE dU.xxX«2e 

FOR lt*0 TO bX 
lin'{xxX*4)-l 
<Uti«SUB(639.lfc) 

BITBLT XJCX 
NEXT IL 

ENDIP 

RETURN 


— > Ua ejMplo para BITBLTdlrX. 

DIM xXdOOO) 

« 

FOR IX'O TO 639 STS 8 
LINE IX, 0 . 639 . 399 
NEXT IX 

OET 0.0. 639. 399. a* 
alrrorput(O.O.aX) 

PROCEDURE alrrorput(xX.yX.VAR xX) 

IF La<(xS)>6 laolo al hay alfo 
aX>V:xS 
bX«IKT{aX) 
hX«IKT(aX«2> 

aX(0).l 

xXUl’hX 

*X{31-1 

xX{4)>0 

xX(5)«6K3030303 

xX(6)«9999 
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XX(7)*0 

xX(8)«V:xS*6 

«X(9)*2 

a(10)*SHR(bV*l6.<l)*2 

xX(n)>2 

xXU2)-9999 

xJU3)-0 

xX(ti|)«XBI0S(3) 

xX(13)>2 

xX(l 6)>80 

x*U7)-2 

xX(l8)>0 Tpactadr 

xl{19)>0 Ip nxtln 

xS(20)>0 Ip'nxpl 

xX(21)>0 tplaask 

FOB 1X«0 TO bX 
xX(6l«lX 
xX(12)«639-lX 
BITBLT xXO 
NEXT iX 

ENDIF 

RETUHN 

--> Eat* ea un aJa«plo para BtTBLTxXO* 

Aabaa nitlAaa raflajan an la pantalla un fracaanco laldo eon QET. 
ifual 41M al liating da BITBLT an al eaplCulo aobra Inacrucclonaa 
Ganaralaa para Rapraaantaclonaa crATtcaa. bi la rutlna qua uaa 
snBLTdlrX aa daba volvar a fijar cada vaa la cantldad da bitplanaa. 
CuAl da laa rucinaa BITBLT aa uaarA. aa cuaatido da fuacoa. Gn euanto 
a la valocidad hay pocaa dlfaranclaa. 

ACHAf)coda.x.y,ront.eatllo,an(ulo 

coda. x,y, font. aaeilo.angulo: laxp 

Con ACHAR aa puada Ij^rialr un dnlco carActar eon cualqtilar eddifo dal 
valor ASCII an al pun to (x.y) . La aaprealdn nuairlca foot puada aaualr 
an aaca caao valoraa antra 0 y 2. A aata valor aa la aalpnO lo 
alfulanta: 

0 • 6x6 (latra Icon) 

1 ■ fix8 (latra noraal an al aodo color) 

2 ■ 6xl6 {latra normal aonocraaitlea) 

Valoraa aayoraa para font aa Intarpratan cooo dlracclonaa foot-haadar. 
Un font da aata tlpo daba praaantarsa an al foraato, an al qua aarA 
tranaformado por CDQS al earfaraa. o aaa an al formato Motorola con 
hlgh-byta antea da low-byta. 

Adlclonalaanca aa puadan flJar el aatllo dal taxto (0 a 3D y Anfulo 
da sallda (0,900,1800.2700). Eatoa valorma aquivalan a aqualloa do la 
lnstruccl6n TEXT. Aunquo eontrarlaaanta a la inatruccldn TSCT, laa 
indlcaclonaa da laa eoordenadaa aa raflaran al canto auparlor da loa 
caractaraa. 
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ATEXTx./.font.sS 

x.y.font: lexp 

•$: s«xp 

La Inscruccldn A1EXT «irv« para la aallda da cadanas da caracteras en 
poalclonea cualaaqulera da la pantalla. A dlferancla de ACHAR no ae 
puede Indlcar an eata caao nlngOn aatllo da lecra nl Angulo de aallda 
eapaclal. Loa parAaatroa x,y y foot son lot alsaoa qua an ACHAR. 

EJeaplo: 

a^clock 

EVEDV 400 OQSUB a_clock 
OPEKH 0 

FOR 1X«1 TO 100000 

PRINT USING ' *.1S: 

NEXT « 

PROCEDURE a clock 
ACLIP I. 2 O.O.UO .15 
1 

ATEXr 20,0.2.TIKES 
RETURN 

Evldencla cada doa aegundoa la hora y eacrlba eoluanaa de nuaeroa. 


I liana Prozedure a_clock 
por prlaara vez 

I cada 2 aegundoa llaaar a_clock 
t proceger llnea auperlor 
I para qua no ae eacriba an alia 

I davolver niiaeroa 


t anceodarCllpplng . alno vale el 
dal OPENW 0. d.b.: no aa va nada. 
t Indlcar la hora 


L'A 

La funcldn L'A calcula la dlraeeldn bAalca da laa varlablea Llne~A 
(var anaxo) . 

EJeaplo: 

PRINT INT{L*A 

--> Da el nuaaro da loa bltplanea an la raaoluciOn actual. Var taablAn 
loa ajeaploa bajo BITBLT. 

LlaaadoB da VDI 

Laa funelonaa da VDI aa aubdlvlden en elate zonas: 

- funclonea da control, 
funelonaa de aallda. 

- funelonaa da atrlbuto. 
funelonaa da aatricea. 

* funelonaa da lograao. 

- funelonaa da infonacldn. 

- aacapaa. 

Sa dlfarenclan traa tlpoa da parAaatroa: ingraao. aallda y aqualloa. 
qua ae puadan uaar tan to para el ingraao coao para la aallda. Eatoa 
parAaatroa ae tranafleran an elnco arregloa: 

- COnu. Control. 

- UTIN Ingraao da aotaroa. 
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- PTSIM lasraao d* coordenadM d* pUBtos. 

- INTOCrr Salida da aataroa. 

- PTSODT Sallda da cootd an a d aa da puntoa. 

Los parAaaeros da Ingraso rigunn aa: 
cotrnu,(0) Opcoda. 

C0MTIU.(1) Cantld^ da pwtas an al arraflo PTSIN. 

C0NTm.(3) Lonfltud dal arraflo INTIM. 

C0KniL<5) IdantlflcacUn dal opcoda. 

INTINO Amslo da locT'aao da loa valorea ancaroa. 

PTSINO Arreflo da lofraao da laa coordanadaa da puntoa. 

Loa parAaatroa da aallda son: 

C0NT1U.(2) Cantldad da pi«tos an al acraglo PTSOCn'. 

C0lfniL(4] LonglCud dal amglo IKTOVT. 

IKIOUTO Arraglo da aallda da loa valoraa antaroa. 

PTSOirrO Arraglo do aallda da las coordooadaa da puntoa. 


Loa parSaacroa da ingraso y aallda son: 

CmTRL(6) Caraetarlzacldn da loa aparatoa. 

C0^f^lL(7*n) Inforaaclooaa dapandlaniaa dal opcoda. 

Los valoraa, qua aa dabm Inacrlblr an loa raspocclvos eaapoa cuando 
sa liana una Funcldo VDl. dlfloran aagdn la fwcldn. 

C0N1HL 

INTIH 

PTSIK 

iwrow 

PTSOUT 

Eataa funclonoa dan laa dltaceionaa da loa bloquaa da parAaatroa da 
VDl. Con un indlca antra par«otasls aa accada a loa alaa an t oa da astoa 
eaapoa: 

COKTRL --> Dlraceldn dal ea^io da control dal VDl. 

INTUi —> Dlraceldn del cav> da Input da antaroa dal VDl. 

PTSIN — > Dlraceldn dal ca«o da lo^t da las coocda o adaa da puntoa 

dal VDl. 

INTOVT — > Dlraceldn dal eaapo da output da antaroa dal VDl. 

PISOCTT — > Dlraceldn dal ca^ da output da coordanadaa da puntoa 

dal VDX. 

Estoa eaapoa contlenen loa pardaatroa pars loa llaaadoa dal VDl. 

Por aj.. C0(miL(2) aqulvala al OPORS CQNTRL *<t o blan al 
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DPEEK(C0NTRL'«4) . Los ottos csapos tsablAn esiAn ordenados por 
pslabrss. 

VDlSTS[ope[,c_lat,c _pts[.subopc]]] 
opc.c_lnt,c _pu,subopc: iexp 

Con la Instruceldo VDISVS sa llasa la funcldn da VDl con el nOaero 
opc. SI no sa Indies ope. se d^>e Inscrlblr el niiaero da funcldn al 
Igual qua loa deads patAaacros coo DPOKE COfiinL . opc o C0fnHL(0)aope 
an al caapo da control. 

Bn log pardaetros e Inc y c_pcs sa pueda Indlcar la cancidad da 
valoraa an al caapo da Input da anteros y an al caapo da Input da 
coordenadas da puntos. Lueso no sa dabra Inscrlblr ads aacos valoras 
an el caapo da cwitrol. El pardaatro opclonal subopc contiena al 
subopcode da la rutlna da VBl a llaaar. Este solo ae deba indlcar an 
algunas ruclnas da VDI, por aj. an las rutlnas da escape. Los 
pardaacros c_lnt, c_pts y subopc sa ^llcan an daterainadas 
Inscrlpclones da caapos da COKIRL. 

Vsla lo slgulanta: 

ope ”> C0KI1U.(0) 

e int --> COOTRLO) 

cipts — > COtflRLU) 

subopc --> C0NntL(5) 

EJaaplos: 

C0KTRL(1)«3 

C0HTRL(5)><t 

miH( 0 )» 32 O 

FTS1N(1)«200 

PTSIN(‘t)al90 

VDISVS 11 

PTSIN(0)>320 
miN(l)>200 
PlSIN(4)al90 
VDISVS 11, 0.3, 4 

PCIBCLE 320 . 200,190 

--> Dlbuja tres voces un clrculo rallano an la pantalla. 

VDISVS 5 . 0 . 0.13 
PRINT " Invertldo ’ 

VDISVS 5.0,0,14 
PRINT * Horaal ’ 

— > Bacrlba al taxto 'Invertldo' Invarcido y al texto 'Noraal' no 
Invertldo. 

VDIBASB 

La variable da alatMa VDIBASE contiena la dlrecclto. a partlr da la 
cuai se deba daponar al pardaatro actual da la versldn 091 para la 
adalnlatraclte da laa rutlnas da VDI. La astructura da la zona da 
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Maori* pueda dlferlr an veralone* futuraa . Por mo sa aupriae un 
ejeaplo an aata cuo. d CPA-BASIC cootlana VDIBASB . para darla la 
oportunidad a loa profraaadorea da podar accadar a todoa loa 
parAaacroa da VDI. 

HOHK_OVT(s) 

a: iexp 

Eata funcldn da loa valorea, qua figuran an al llaaado da laa 
funciOM* da VDI 0P» HOMCSTATIOH an Incouc(O) haaca iAtouc(44) y an 
pcaout(O) haaca pcaouC(l). Solo qua al Indlca corra daada 0 haata 56 
(var anaxo) cuando sa aaplaan laa funelonaa H0RK_0Vr. 

EJaaplo: 

raatar bralcat'WOBK OUT(O) 
raatar^hoahaA'WOnc.OVTU) 

PfllKT raaCar_bralcM.ra*tar_hoah*i.WOMC_OVr(10) 

— > Batoma loa niiaaroa 639 y 399 para al ancho y la altura da la 
aacria Ian al aodo aonocroadtlco) y un 1 para la canttdad da alaboloa 
dlaponlblaa (W0ftX_0UT(10)}. 

Rubinaa da VDI Mpaelalaa 7 OOOS 

Sa puada dlaponar da laa algulantaa Funelonaa da workatatlon VDI y 
para aollelcar algo al an el booclng a* Incluyd al prograaa GDOS ( a 
pareir da Relaaaa 1.0) y al axlaca un archive tSStOl.StS vAlldo. 

B1 QDOS (Oraphlca Davlca Operating Syacaa) indapandlanta da loa 
aparatoa contlana funclotiM graflcaa y crataja coa driver* 
dapandlantas da aparatoa par* dlatlncoa aqulpoa da aallda (pancalla. 
iapreaora, graflcador (ploctar). aacaarchlvo.ate. ) . 

El arc hi VO ASCII ASSKW.SYS contlana todoa loa datoa nacaaarloa aobr* 
la conflguracldn da aparatoa uaada. Bn aata archive a* daban reglatrar 
todoa loa driver* da aparatoa y loa aiaholo*. avantualaanta a* dab* 
Indlear ad aata al canine da aecaao par* driver da aparatoa, cuando 
tatos no *a eneuantran an la dlaquatara A:. aata eaao *a dab* 
raapatar la algulant* alntaxla: 

Id DRIVER. SYS: 

Obaarvaclonaa 

oracl.FVT 

oracB.PKT 

oracn.FKT 

Id Contlana un niiaaro antra 1 y 32767- Aal *a flja al tlpo da 

driver dal aparato. %'allando la algulanca aalgnacldn: 

01.. .P*ntalla 

11 .. .0.aflcador (Ploctar) 

21 . . .Ivroaora 

31 .. .Hetaflla 

41.. .Ctaara 

51 .. .B*nd*J* da grtflco* 
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Cuando loa drivers de los aparacos se encuencran an la dlaquetera C- 
del ordenador GD6YS. entoncea el archive ASSIGN.SYS correspondiente 
as el slguleote: 

path • c:\(aBSys\ 

Olp screen. ays; driver de la pantalle provenlente del ROH, per eso 

figure une p detrAs da Id 

ATSSIO.FWT 

Aissie.pyr 

02p screen. ays; driver para baja resolucldn 

AtSSlO.FWr 

ATSS12.FWT 

03p screen. ays; driver para resolucldn inceiaedla 

AISSIOCO.FKT 

ATSSiaca.FMT 

04p screen. ays; driver para resolucldn alta 

ATSSIO.FKT 

ATSSia.fWr 

21 fxfiO.sya; driver de le lapresore para el FX-80 y coapatlbles 

AisiOEP.nrr 

A7SSi2EP.nrr 

31 MBTA.syS Mtaflle'driver 

AlSSlQtP.fTfr 

ATSS12lff.Fwr 

En este case loe drivers de la pantalla SCREEN. SYS solo son 
Inscrlpelones duMy. exlgldaa asl por el control de slntaxls dal GUOS. 
Los Id's (2.3 y 4) solo algnlflean qua a cade resolueldn se le aslgnan 
loe correspondlentes fonts. Por eso el llaaado para ^rir una 
•orUtatlon virtual da la pantalla es el algulente; 

V_QPKVM({XBICIS(4)*2) . Eats llaaado lo ajecuta el OFA-BASIC 
Intemaeenta. 

OfiOST 

GDOST da ‘IRUS cuando GDOS estd cargado (a partlr de Release 1.0) y da 
PAl^. cuando QDOS no as resldente. 

Ejaaplo: 

IP NOT 0D0S7 

ALBtT l.'No ha encontrado GDOS l*.l.*Caneelar" rX 
QID 
ENDIP 

V*B 

Bo las slgulentes funclonea de control de VDI. lepleeencadas en el 
OPA'BASIC. figure hd para VDI-handls y id para la caracterliaclOn de 
un aparato da sallda. En relaclOn con esto aa deben respetar las 
slgulentes fuoclooes: 

V'H Da el VDl*handle usado Intemaaente por el OFA-BASIC (por ej. 
PRINT V*H>. 

V Hbx Plja el VDI-hsndle usado Internasente ( y al cual se puede ac- 
eeder a travAs de C0HTRL(6)) en el valor a. 

V~B*-1 PlJa el vox-handle usado intemaaente ( y al cual se puede ac- 
ceder a travis de C0Knu.(6)) en el valor, qua dlo el V_0PNVWX 
usado Intemaaente. 
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V_OPNVK(t<i) 

V_CLSH< ) 

Id: lexp 

Loa nilaeroa 1 o blen 2 aueatrtn loa valoraa default para «1 ajuate da 
loa parAaatros del VDl. taeblta aa pueden aodlflcar (coaparar 
WORK OUT). 


La fxmcldn V_0PMWK (open eorkatatlon) da el handle hd para la 
caracterliaeldn del aparato ladleada id. AdaaAa ae pueden aollcttar 
otras Infornaclonea aobre el aparato coneetado con IKTOUTO y PTSOUTO 
(eoaparar VDISYS an el apartado de rutinae da aiateaa). 

La fund in V^CLSWX (eloee uorlcacatton) abra la eacacldn de trabajo 
abierta (con V_0PKm) y eaerlbe todoa loa contanldoa da loa buffer da 
eata eataelOn. AdaaAa, ae ejecuca V*Ke*l. 

Bjeaplo: (eoaparar en V_CLRHK). 

V OPHWX(ld) 

V~0PirWE(ld.l,l.l.l,l.l.l.l.lf2) 

y_CLSn(id) 

id: lexp 

La funcldn V^OPMWK (open virtual vorkatatlon) abre un driver de 
pantalla virtual y da el handle para la earactarlzacldn Indlcade del 
aparato id (eoaparar V_0PNWK). 

La funcldn V_C15VWK (eloee virtual vorkatatlon) clarra una vorkatatlon 
virtual abierta (con V_0PNVUK). AdaaAa, aa ejacuta V'HbI. 


V CLRWKO 
V.DPDHKO 

La funeldn V_cUtWX (clear aorkatatlen) borm el buffer da aallda. Bn 
eata eaao aa borran por ej. el buffer de le pentslle o de le 
lap retore. 

En la aallde de frAflcoe an le lapraeora ee racolecten todoa loe 
coaendoa an un buffer. Le ftneldo V^UPDWK (update vorkatatlon) 
evidencla aataa mstrueclonee de friflcoa de buffer an el epareto 
coneetado. cMblo an le pantalla aa ejecutan Inaadlataaante todaa 

laa Inatrucclonaa da criflcoe. 

EJenplo; 

RESERVE 25600 I reaarvar euflelantc naaorla 

handleX*V_0(1M((21) 1 Oetemlner nOBaco de perlfArlco 

IF handleS’O 

ALERT 3, ’Error de inatalacldn t*,l.’Cancalar'.rX 
RESERVE 

BiDlF 
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x_resS«IHTOUT(0) I deceralnar resolucl6n en z, 

y_c«B>*IKrOUT(l) I del equlpo conectado 

V'H'hsndleS 

*V_CLRWK() 

CLIP 0,0,x_cesX,y_r«8l 
BOX O.O.x_r«*X.y_resS 
LINE O.O.z_re«*.y_re*X 
LINE 0.y_resX,x_resS,0 

*V UFDWK{] t ejecutar los coaando* grAficoe 

■V^CLSUKO 

4 

ElESERVE I llberar la aeaoria 

— ) Cuando COOS esta activo se visualize en una isprezora acoplada, ua 
raccAngulo, an al cual aa dibujaron lea diagonalea. 

VST_LOAD_POirrS{z) 

VST_OMLOAD_FOKTS ( x ) 

x: isxp 

La funcldn VST^LOAD^FONTS carga loa siaboloa adicionales indicadoa en 
ASSIGN. SYS. at aleanza al eapacio da aeaorla dlaponible y retoms la 
cantldad da lacraa realaente cargsdaa. Si no sa dlapooa da ada fonts, 
se retoma caro. 

El paraaecro x daberia aar igual a caro. ya qua aon poaibles 
aapliaclonas an otras varaionea CB4. Ante todo as laportanta. reaai^ar 
con RESERVE auficianta eapacio da aeaoria para los siaboloa 
adicionales . 

La fimcldn VST_UNLOAD_POKTS allains da la aeaoria los siabolos 
cargados antaFloraenta con VST_LOAI)_FO(fTS . Para al parSaatro vale lo 
aisao qua an VST_LOAD_FOtrlS. 

EJeaplo: 

EIESBIVE 236 OO 

anz_fontaX-VST_L0A0_F0WrS(0) I Huaaro da set da letras T 
facaX*vaT_NANETanz_fontsX.rontS) > Index y noabra da loa seU 

FOR iX*l TO anz_fontsX 
DEPIEXT .... facaX 

TEXT 80.80. “Bate aa al ■♦fonti*" Font." 

-INP(2» 

NEXT iX 

•VSr_UNLOAD_IWrS(0) I borrar fonu 

RESERVE 

> En la pantalla sa visuaiiza el noabre da loa siabolos cargados en 

aste fonts. 


I fija al Handle de Vbl 
al nuaero dal perlfArlco 
I Borrar Buffer 
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VQT_BXmfT(Ca>tS[,>t.yt.x2.72.B3.F3.>*>y^l) 
texts: »exp 

Xl.yl.x2.y2.x3.y3,x4,y4: Iver 

La rvmciOn VQT EXTSTT da laa eedldaa da un rectAngulo, qua incltiya al 
strlnc texts transfarldo. OpetonalMOta puada Utt»e lugar al ratorno 
an laa variables xl.yl a x4.y4 o solo an PTSOUT(O) a P1S0VT(7>- l^s 
cantos sa enuaaran an sentldo contrsrlo al raloj. 

Canto Poalcldn 

xl.yl Canto Isquiardo inferior. 

x2.y2 Canto deracho suparlor. 

x3.y3 Canto daracho superior. 

x4,y4 Canto izqulerdo suparlor. 

VQT_HOIIBftB( 1. fooe_BOBbreS ) 

l! ivar 

font_noabreS: svar 

La funcidn VOT HOKBRE da la caractarlzacldn da la sacuancla da 
alabolos carfada'eon al nOaero 1 y reclstra an la variable string 
font_no«braS al noabra da asta font. 

EJaaplo: 

RESQIVB 256O 

anx fontsS«VST LOAD FOKIS(O) 

facaS*V9r NAMfiTanz fontsS.fontS) 1 Index und noabra da los sets 
hS«12 ' ~ 1 Altura da taxto 

8S**Balspiaitaxt* 

xOS«80 t Coordinadas 

yOS'SO t para sS 

DBFTBXT 1.0,0. as. faces 

'VQT_EXTerr(sS.xlS.ylS.x2S.y2S.x3S.y3S.x4S.y4S) 

GRAPHMCDB 4 
TSCT xOS.yOS.sS 

PBOX xOS*xlS.xOS'ylS-hS-l.xOS*x3S,yOS»y3S*hS 
•VSr_UNUJA0_P0KrS(0) l Borrar Ponte 

RESEHVB 

_•> £1 String sS sale an la pantalla an forma invartlda an al pun to 

■O.yO. 

Bl llamado da rutiaas eacritas an otroa laoguajaa 

Los eoaaftdos dascrlptos an asta apartado slrvan para llaaar 
subrvtlnas, qua asUn eacritas an C o an assembler. 
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C:dlr(C*.y...O) 

dir: avar (por lo aanoa 32 bit, pr«fer«nte>ente dlrX) 

x.y: laxp 

La fuocidn C llaaa un aubpragraaa ascrlto an C o an aaaeabler qua 
figura an la dlraccldn dir. Lot parAaatroa x,y...se pueden transferlr 
antra parAntaali . La tranafarencla da parAaatroa ocurra Igual qua an 
C. Los parAaatros sa puadan transferlr coao palabrss da doble dansldad 
da 31 bits 0 da sliqala dansldad da 16 blu. aatando prasalecclonada la 
transfarancla coao valor da l6 bits. Sa pueden transferlr palabras da 
dobla dansldad si dalsnta da los corraspondlantas parAaatros sa flja 
uoa L:. Cuando sa llaaa asta funclbn sa colocan sobra el stack prlaaro 
la dlraccldn da ratomo y luago los parAaatros . Asl por aj.: 

VOID C:dlrX{L;x.H:y.t) 

conduce a la slgulanta sltuaclte an al stack: 

(sp) — > dlraccldn da retoroo 
4(sp) — > X (4 bytes) 

8(sp) — > y (2 bytes) 
lO(sp) --> X (2 bytes) 

£1 valor re tornado por la funcidn as al contanldo dal reglstro dO 
cuando ratoma da la rutlna ( qua daba raallzarsa con RTS) . 

EJeaplo: 

£1 prograaa Assaablar usado aqvil rellena un aspaclo da la aeaorla (por 
aj. un arraglo da antaros) a partlr da una dlraccldn dateralnada con 
nOaeros (antaros da dobla dansldad) antra 0 y n. 


206P0004 

Bova.l 

4(sp).a0 

:dlraccl6n inlclal 

202F0006 

aova.l 

6(sp).d0 

icantldad da valoras 

7200 

Boveq.l 

fO.dl 

;contador 

6004 

bra.s 

ct 2 

: sal to al loop 

20C1 

ct_l:aova.l 

dl.taO)* 

;lo^. aserlblr valor 

5261 

addq.l 

#l,dl 

;lncraaantar contador 

6061 

ct_2:cap.l 

dl.dO 

:11s to? 

64F8 

bcc.s 

ct 1 

;no,saguir — > 

4B75 

rU 


;ntomo al OPA-BASIC 


El prograaa BASIC as al slgulenta: 

FDR 1*-1 TO 11 
READ a2 

asaS«aaaS«MKl (aX) 

KEXT IX 

DATA S206P.SOOO4.S2a2F.t000e.S720O.S6OO4.S20Cl.S528l.SB08l.s64P8.$4B7S 

DIN xX(lOOOO) 

asaX*V:aaaS 

‘C:asaS(L:V;xI(0),L: 10000) 

PRINT "por ej. *»(12): ’:x*(l2) 

--> Liana el arraglo xS() con los nuaeros 0 a 10000. La ajecucldn da la 
funcldn C: aqulvala an asta apllcaclte a las slgulantas Inscrucclones: 
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FDR 1S«X TO nX 
xXUX)>lX 
NDCT IX 

Otra poalbllldad da Insercar un prograaa asseabler an un proKraaa dal 
CFA-BASIC 3.0 aatA dada por la Inacruccldn INUKB. Ffiaaro aa daba 
produclr un archivo. an al cual flfpira al procraaa asaaablar Indleado 
anterlonanta, por aj. eon (da acuerdo con la astructura da rapatleldn 
READ-DATA racidn aenclonada): 

BSAVE 'COUNT. lNL*.V:aaaS. 22 

Luego aacriblr al algulanca prograaa: 

INLINE aaaX.22 
DIH xX(lOOOO) 

'C:aaaX(LLV:xX(0).L:l(XX)0) 

Luego aa daba pulaar la taola Halp an la linaa an la qua figure 
INLINE, aalacclonar Load y cargar COUNT. INL. &itoncaa aa puada 
alaacenar eata prograaa eon Sava. 

HONITOR[x] 

x: lexp 

Eata inatruceldn alrva para llaaar aubrutlnaa aaaeablar 0 prograaaa 
Debug u oeroa prograaaa auxlliaraa. Con eata flnalidad aa debe 
"torear* al illegal Inatructlon vector (dlraeeldn I 6 ) a la dlraceldn 
da la aubrutlna. La inatruceldn MONITOR genera antoncaa una Illegal 
Inatructlon exception, qua conduce a la Inlelacldn dal aubprograaa. 
qua daba taralnar con RTB (ratum froa axeaptlon). El pardaetro x aa 
un valor da tranafarencla. qua so aacrlba an al raglatro dO. 

Un ajeaplo da apllcacldn aa puada uaar an un prograaa coao al qua ae 
deacrlbld an C:, an un debugger. Para alio, aa carga a Inlela al QFA- 
BASIC por al debugger. Luago. despuda da Ingreaar al prograaa. aa daba 
Inaartar dlrectaaenta datrda da la Inatruecldo IMJNB: MONITOR aaaX. 
Deapuda da la Inlelacldn dal prograaa aparacerd in aanaaja por parte 
dal debugger dabldo a una ’Illegal Inatzoctlcn*. Ahora aa puada 
daaaaeablar o adltar la xona a la cual aeftala dO. A coatlnuaeldn aa 
puada. aveneualaenta daapuda da pulaar Shlft-Altamata-Control. 
contlnuar la ajacuclda BASIC con la inatruceldn dal debugger. 

CALLdlr([s,T,. ..]) 

dir: avar (por lo aenoa 32 bit. praferenteaenta dlrX) 

x.y: lexp 

Con la Inatruceldn CALL taabidn aa puadan llaaar rutlnaa aataabler o 
C. La dlreccldn 'dir' ea la dlreceldn a partlr da la cual aa encuantra 
al prograaa aaaeablar. Exlata la poalbllldad da transferlr una llata 
da parAaatroa. Oaapuda dal llaasdo da CALL, aa encuantra la dlreccldn 
da raiomo an al atack (la rutlna aaaenblar daba taralnar con RTS). 
Luago figure la cantldad da parAaatroa transfarldoa coao valor da 16 
bit y rinalaante la dlreccldn, a partlr da la cual flguran loa 
pariaetros an la aaaorla coao valoraa da 32 bit. Todoa loa pariaetroa 
se incerpratan coao palabraa da dobla danaldad (32 bit) 
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Aqul taablAa «xlste la poslbllidad do transfarlr atrlnga coao 
porABotroa. En esce cooo el valor de transferencla os la dir«cci 6 n 
Inlclal dol acrlng. 

Estructura del atack 


(sp) ••> direocldn de retomo 
4 (sp) **> caneldad de parAeetroa (I6 blc) 

6(sp) — > dlreccidn del caapo de parAaeeroa (32 blc) 


RCALLdlr.r«g)(() 

regJO: noebr* arreglo de eoteroa da 4 bycea 
dir: lexp 

La Inatruccldn RCAIX hace poalble aalgnar valorea a loa reflacroa 
antes de coaenaar la nicina aaaeebler y sollcltar loa concenidos de 
loa reglscroa deapuAs da la ejecuclda da la ruclna. Para olio alrve el 
arreglo roBJO, cuyoa eleaencoa daban aer del Clpo ancero de 4 bycea y 
qua deba canar por lo aaooa I6 elaiwncos. Antaa da la Inlclacldn de la 
ruclna aaaeablar aa coplaa las Inscrlpclonaa da aaCe arraglo an loa 
raglacroa y deapuAa da la ajocucldo de la rutlna aa aacrlban loa 
concenidos da loa caglscros on loa raapeccivoa elasancos dal arreglo. 
En asce case vale la sl(ulence aalfnacldn (con OPTION BASE 0 ): 


Reglatro da daCos dO a 47 an rafXIO) a ngt{ 7 ) 

Reglscro de dlraeclones aO a a6 en resX(8) a re£((l 4 ) 

Uaer-acaclopolncar (a?) en rasX( 15 ) (solo recomo) 

Blaeplo: 

El asseablar*ltatlnf espera en aO la dlraccldn de la aeaorla (Idglca 0 
flslca) da la pantalla. Luego Invlerca la pantaila encra las 
coordenadas y, qua ae Indlcan en dO y dl. En la pantalla de color se 
dupllcan laa coordenadas. 


sub dO.dl 
■ulu 120,41 
aubq fl.dl 
■ulu fSO.dO 
dlr.l dO.aO 
loop 

noc.l(aO)* 
dbra dl.ioop 

rca 


eancided da lineaa 

cricarlo da incerrupcldn dal loop 

■ 

canclded de bytes qua deba aaltaar 

dlraccldn a partlr de la cual aa Invierte 

cottieoxo dal lo<9 

Inviarto 4 bytes 

dlselnuyo y raalflco 

de vuelta al 0 PA>BASIC 


El profraaa de OPA-BASIC dice: 
DO 

READ aX 
EXIT IF aX — 1 
AS>AS«HaS(aX) 

LOOP 

DATA 37400.49916.20.21313 

DATA 49404.80.53696 

DATA 18072. 20937 . 65532. 20065.-1 

DUrX(l 6 ) 

zb 2 X>XB 10 S( 2 ) 
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HXDEM 

fOft JX-l TO 50 
FOR 1S«0 TO 190 ST^ 10 
rUO)-iX 
ria)-399-i* 
rX(8)*xb2X 
RCALL V;aS.rX() 

NEJCT i* 

NEXT }X 

--> El pro(rua produca un Ju«BO crATico. aata cuo, al l(ual qua 
an C, per lupuesto caablAn sa puada aaplaar INLINE. 


BXBCaod , bob , csdl , anas 
BCEC ( aod . ttoa . cadi . anvs ) 

BOd: lexp 

noB . cadi . anva : aaxp 

La InacrucelAn BCEC *a puada apllear tanto cobo coBando coao Funetta. 
Slrvan para car car a Inlclar procraBaa da dlaco qua daapuAa da 
rinallcadoa vualvan al procrasa qua loa aollclta. Ancaa del llaaado da 
EXEC aa daba brlndar aapacio da aaBorla al procraaa qua aa aollclta 
(var ajaaplo). El pariBetro aod Indlca al aodo dal llaaado. En acta 
caio alfnlflca: 

0 — > carfar a Inlclar al profraaa. 

3 — > aolo carter al profraaa. 

En la axpraalte noa rigura al noabra dal procraaa a eargar ( y a 
Inlclar) . El foraato da la Indlcacldn dal noabra aqulvala a laa raglaa 
dal alataBa Jartrqulco da archlvoa, qua aa encuancran daacrlptoa an al 
caplculo da Ingraao canaral da datoa y aallda (anaral da datoa. 

La axpraaldn cadi contlena la llnaa da aantancla o coaando, qua aa 
aneuantra Inacrlpta an la baaapaga dal profraaa llaaado. El prlaar 
carActar da la llnea da aantan^a contlena al larfo da la alaaa ( coao 
■AxlBO 127 ). En (anaral aa Ifnora aata byta. aalvo qua aaa caro. For 
aao (anar^aanta aa auflclenta tnaartar un alabolo dusy (*) . 

En anva flfura al anvt r o na ant. Eata aa un atrlng aubdlvldldo por 
CHRS(O). Para un profraaa C aa por lo tanto una aarla da atrlnfa, cuyo 
Altlao atrlnf aa caractarlxa por 0 dobla byta da caroa (lo qua haca 
al CFA-BASIC por al alaao). Eata anvlronaant aa uaado por auchoa 
profraaas aball. para alaacanar varlablaa y aua noabraa (fanaralaanta 
Inatruccldn SET). Huchoa coaplladoraa taablAn lo uatn para Pljar 
eaalnoa da accaao 0 coaaa slallaraa. 

SI aa llaaa OCEC coao fvsicldn, entoneaa aa obttana al valor da ratomo 
dal profraaa 0 . para aodo«3> la dlraccldn da la baaapafa dal profraaa 
•olleltado. EXEC 3 aolo tlana una aplleacldn <ltll an profraaa 
aapeelalaanta aacrltoa coo aata ftnalldad {ovarlayal o para dabufiara. 

EJeaplo: 

FILESELECT 
RESERVE 100 
SHOW 
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■J*OCEC(0.rt, 

RESERVE 

PRIKT 'DavuelU an el QPA-BASIC, velor da devolucldn *,aX 

Peralta llaaar un procreaa {an la aedlda an qua no raqulera 
daaasiado aapaclo da aeaoria) y vualve al Intdrpreta despuAe de 
flnallzado el prograaa sollclcedo. El valor da retomo, qua da la 
funclAn SCEC, taabidn pueda ear fljado por prograaaa de QFA>BA51C a 
travAa da QUITn o SYSTDI. 
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11 - Blblloueu AES 

El •ifulent* capltulo ha d« dar un panoraaa aobre laa blbllotacaa AES 
(AES * Application Envlronaaac Servicaa). Una deacrlpcldn dacallada da 
estaa rucinaa axeadarla loa llaltaa da un manual . por aao sa Indlcart 
an Bate lucar la aaplla blbllOfrafla aobra al taaa QSf. mate 
capltulo aa darAn aolo Infonaclonaa an foraa coaprialda. Laa 
dlfermtea rutlnaa ae praaantan da acuardo coo al algulenta aaqueaa: 

En la prlaara llnaa flfura al noabra da la corraapondlanta rutlna da 
blbllotaca, luafo algua una brava daacrlpcldo da la funcldn. A 
eontlnuacidn aa praaanta al llaaado eoaplato da la funeldn an la 
nocacldn dal CPA-BASIC 3*0 y aa aapllca al alptlflcado da todaa laa 
varlablaa uaadaa. 

El capltulo coneluya coo algunoa prograaaa do ajaaplo aAa axcanaoa. 

Antaa da coaanaar a daacrlblr laa Inatrucclonaa da laa blbllotacaa 
AES, han da conocana laa prlnclpalaa aatructuraa da datoa, con qua 
trabajao laa AES. Eataa aon laa aatmcturaa OBJQCT. TEDINFO, ICMl, 
BITBLK, U3ERBU y PARKBU. 

En prlaar lufar aa darA la aatructura da laa Inatrucclonaa AES, qua 
aatAn cootanldaa an forma alallar eo al GFA-BASIC 2.0. 

CCONTRL 

AODRIN 

ADDROUT 

aiirTZN 

ciimur 

OB 

Eataa funclonaa ealculan laa dlracclonaa da loa bloquaa da parAaatroa 
AES. Eatoa aon ; 


GCOKTRL 

ADDRIN 

ADDROUT 

QitmH 

OINTOUT 

OB 


'•> Dlraceldn dal arraclo da control AES. 

— > Dlraceldn dal arreflo da Input da dlracclonaa AES. 
—> Dlraceldn dal arraclo da <Xitput da dlracclonaa AES 
— > Dlraceldn dal arraflo da Input da antaroa da AES. 
*•> Dlraceldn dal arraclo da Output da antaroa da AES. 
— > Dlraeeldo dal arraclo da parAaatroa AES. 


Eataa funclcnaa con al indict antra parAntaala accadan dlractaaenta a 
loa caapoa corraapondlantaa. 0C0KTRL(3) aqulvala a 0PEQC(aC0Knu.*6) o 
blan al corraapondlanta DPOKB. 


En aata caao tanto OCONTRL coao OIKTIN y OIKIOOT aatAn orcanlzadoa 
por palabraa. ADORIN y ADOftOVT an antaroa da dobla danaldad. 

0 aaa. A0DRlN(2)aa aqulvala a LPOKB ADDRIN » 

El caapo CS no aa puada uaar con Indlcaa. ya qua por razonaa da 
coapatlbllld^ aolo eatA a dlapoalcldo dal ST-BASlC; Icual axlata 
QINTIN, ate. B1 sacundo entaro da dobla danaldad ((08 • 4)} aa la 
dlraceldn dal caapo In tamo clobal dal OEM. 
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GBXSTSnr 
nr: lexp 

Con la lnatruccl6n CSCSYS a« puada llaaar una rutlna AES coo au nOaero 
da funcldn. Los parAaetros necesarloa para asta rutlna aa deban dajar 
an loa bloquaa da parAaacros AES. 

BJeaplo: 

REPEAT 

ai«riN(0)>60 

aimN(i)«30 

QIOTIH(2)-10 

aiNTIN(<t)*2CX} 
aiNTIN(51*200 
QQCYS 72 
UOTIL H0USB( 

--> Dlbuja un ractAngulo qua aa auava sobra la pantalla (72 as al 
ndMro da la funcldn ORAF.NOVaoX) . 


Batructura-Objato 


orrsat 

Contantdo 

Tlpo 

Slgnlflcado 

00 

ob_naxt 

word 

SaAalador sobra al slgulante objato. 

02 

ob^haad 

uord 

SaAalador sobra al prlaar niAo.{cAlld) 

Oil 

ob_tall 

word 

SaAalador sobra al dltlao nlAo. 

06 

ob_typa 

word 

Tlpo dal objato. 

od 

ob_flaca 

word 

InfoiaAclonea dal objato (var sAs sbajo) 

10 

ob_stata 

word 

Eatado del objato (var aAa abajo). 

12 

0 b_spac 

lone 

Stflalador sobra otraa Infomaclooaa (var 

bAs abajo) . 

16 

ob_* 

word 

PoalelOn x dal objato. 

Id 

ob _y 

word 

Poslcldn y dal objato. 

20 

ob_* 

word 

Ancho dal objato. 

22 

ob_h 

word 

Altura dal objato. 


£1 raquarialento da aspaclo da alaacanaalmto da un objato coapranda 
antoncaa aatoa bytas aAa otraa aatructuraa da dascripcldn 
avantualaanta praaantas. por aj. aatructuraa TEDINPO o BITBLK. 


0B_t(EXT SaAalador sobra al slfulanta objato an al alsao piano o 

~ sobra al objato aadra, an al caso an qua aa trata dal dltlao 

alaaanto m al piano. 

0B_HEAB SaAalador sobra al prlaar nlAo dal corraapondlanta objato. 

OB TAIL Stflalador sobra al ultlao nlAo del corraapondlanta objato. 

SI no axlstan pianos ads profundos, loa saAsladoras tlenan al valor 
-1. taabldn llaaado KIL (not In Hat). 

Los sigulentes valoraa da 0B_TYPE son poslblas. Da acuerdo coo al 
valor da 0B_TYPE, 0B_SPEC as la dlraccidn da direrentas aatructuraa da 
inforaaclte. 
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OB lYPB 


OB.SPEC 


0 TEXT 

g'boxtoct 

0 XNAOE 
O'USetOEF 

q"ibox 
a'Bunoii 
0 BOXCHAH 
o'STRIHa 

o“fiext 

o"fboxtext 

OjCOM 
0 TITLE 


21 Dlraccldn d« un« ■•tructurm TQINFO. 

22 Olraccldn da um Mtructur* TESINFO. 

23 Dlraccldn da una aatnictura BriBLK. 

2$ Dlraceldn da una aatnictura USQtBU. 

25 BQXINFO, var aia abajo. 

26 Olraeelte dal atrlng. qua contiana al caxto. 

27 DOXINFO, var aAs abajo. 

28 Dlraecldn dal cerraaponUanta atring. 

29 Olraceldn da una aatnictura TGDINFO. 

30 Dlraeeldn da «a\a aitructura TEDINFD. 

31 Dlraccldn da una aacructura IC0N8UC. 

32 Olraceldn dal eorratpondlanta atrlng. 


Para G_B0X. O.IBOX y 0_B0XCHAR aacdn contmldaa an OB.SPEC 
infcraaelonaa. qua aa raflaran a loa caractaraa. al narco y al color 
dal eorraapon^anta objato. Bn aata caao. aolo an a_B0XCHAR aatdn 
ocupadoa loa 6 blta auparloraa y contlanan alii al eddlgo ASCII dal 
cardctar qua aparaca an al boa. 

Contlanan loa algulantas valoraa para al aareo; 

0 • nlngun narco. 

la 128 « El narco aa aneuantra 1 a 128 plxal daotro dal cormapon* 
dlanta objaco. 

•1 a '128 ■ El aarco aa aneuantra 1 a 128 plxal fuara dal eerraapon- 
dlanta objato. 

Inatalaclda da blta para al color dal objato: 1111 2222 3^*1 8555 

1 Narco (0 a 15) 

2 Taxto (0 a 19) 

3 Taxto (0 ■ tranaparanta. 1 ■ qua cubra) 

4 OlaaAo da rallano ( 0 a 7) 

5 Color dal Intarlor dal objato 


OB.FLAQS 

Max 

Nro.da bit 

SELECTABLE 

UffiOOt 

0 

DEFAULT 

UI0002 

1 

Qcrr 

(H0004 

2 

SITABLE 

EHOOOB 

3 

RBUrrOM 

UiOOlO 

4 

LASTOB 

UI0020 

5 

TOOCHEXIT 

Uf0040 

6 

HIDEmS 

U90080 

7 

INDIRECT 

&H0100 

a 


ra^STATE 

Hax 

Nro.da bit 

SELECTED 

UiOOOl 

0 

CROSSED 

U10002 

1 

CHECKED 

1H0004 

2 

DISABLED 

unooe 

3 

OUTLINES 

(HOOtO 

4 

SHADOWED 

tKOOBO 

5 
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Laa Mtructuras «nallzadaa an •! pAmfo ancarior aa actlvan an CPA- 
BASIC 3*0 con la alcuienta alncaxla (laar y eacnblr) : 

0B_NEXT(treaX.ObJ() 

OB_KEAO(traaS.obJt) 

0B_TAXl.( trees, objl) 

0B_TYPB| trees. ObJ4) 

OB_FLACS|traaS.obJS) 

OB STAnt trees. objl) 

OB_SPBC(traaS.obJ() 

0B_X(trOTS.obJ4) 

06 Y(treeS.obJi) 

0B_W( trees, obJ&) 

0B_H(treeS.<^Ji) 

En aata caao treeS aa la dlraclte dal Arbol dal objeto y obJA ea el 
nuaero del objeto, aobre el cual aa aoltclta lAforMcldn. 

La dlraccldo del objoto aa puada detarelnar adaaAa con 

0B_ADR(treeS.obJ4). 

Eatructura da InforBacldo do taato (1SD1NFO) 


orraat 

ContMldo 

Tlpo 

Sl^ricado 

00 

ta _ptext 

lone 

SeAalador aobre el taxto. 

Ott 

ta_ptaplt 

long 

SaAalador aobre aiacara dal taxto. 

06 

ta _pvalld 

long 

SeAalador aobre el atrlng para validez 
da loo caractarea qua aa Ingraaan. 

12 

ta_r«it 

•ord 

Oracldo da caractarea. 

14 

ta_ceavd 

word 

Raaervado. 

16 

ta~juat 

aord 

AllDoaelanto da taxto 

16 

ta'color 

•ord 

Color dal box elrcuadante. 

20 

ta_reavd2 

■ord 

Raaaivado. 

22 

te_thleJ(neaa 

aord 

Eapeaor dal aareo. 

24 

ta^txtlen 

word 

Longltud dal taxto. 

26 

te_taplen 

word 

Longltud da la adacara dal taxto. 


Eatructure Icon (ICONBUC) 


Offaat 

Concanldo 

Tlpo 

SlgBlfleado 

00 

lb _paaak 

long 

SaAalador aobre aAacara Icon 

04 

ib_pdata 

long 

SaAalador aobre datoa Icon. 

06 

lb_ptaxt 

long 

SaAalador aobre taxto Icon. 

12 

ib_ehar 

word 

SaAalador dentro dal Icon. 

14 

lb_xchar 

aord 

Poalcldo a dal carictar. 

16 

Ib^ychar 

aord 

Poalclda y del carActar. 

16 

lb_xlcon 

■ord 

Poalelbn x dal Icon. 

20 

lb _/icoo 

•ord 

Poalcldo y dal Icon. 

22 

Ib^alcon 

word 

Ancte dal Icon. 

24 

lb_bicoo 

■ord 

Altura del Icon. 

26 

lb_xtaxt 

■ord 

Poalcldo X dal taxto. 

28 

ib ^taxt 

■ord 

Poalcldo y del taxto. 

30 

Ib.Htaxt 

word 

Anefao dal taxto an pixel. 

32 

Ib^htaxt 

■ord 

Altura dal taxto an pixel. 
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34 lb_r«avd nerd Raaarvado. 

Eacructur* da Blt-laace {BITBLX) 


Offaet 

Contaoldo 

npo 

Slgnlflcado 

00 

bl _pdata 

long 

SaAalador aobra loa datoa del laage. 

04 

bi vb 

word 

Ancho del laaga an bytaa. 

06 

bl_hl 

word 

Altura dal laaca an pixel. 

08 

bi_« 

word 

Poaleldn x del inaca. 

10 

*>o 

word 

PoalclOn y dal laace. 

12 

bl_color 

word 

Color del Inaga. 

Eatructura del bloqua 

da apllcaelte (USSiBLK) 

Offaat 

Contanldo 

Tlpo 

Signlflendo 

00 

ub_coda 

lone 

SaAalador aobra una rutloa autodaflnlda 
para la rapraaantaeldo dal objato. 

04 

ub_pam 

long 

SaAalador aobra ina aetruecura PABMBLX. 


Bn aata caao daba tracaraa da rutlnaa Maaablar. 


Eacriictura dal bloqua da parAaatroa (PAXNBLX) 


Offaat 

Contanldo 

Tlpo 

Signlfleado 

00 

pb_trea 

long 

SaAalador aobra al Arbol dal objato. 

04 

pb.obj 

word 

Ndaaro dal objato. 

06 

pr^revatata 

word 

Eatado anterior. 

08 

pr_curratata 

word 

Eatado actual. 

10 

Pb_x 

word 

Poaleldn x dal objeto. 

12 


word 

Poaleldn y dal objeto. 

14 

pb.w 

word 

Aneho. 

16 

pb_n 

word 

Altura. 

18 

Pb KC 

word 

Poaleldn x dal ractangxilo da ellpplng. 

20 

Pb_yc 

word 

Poaleldn y dal ractiagulo de ellpplng. 

22 

pb_wc 

word 

Ancho dal ractAngulo da eliding. 

24 

pb”hc 

word 

Altura dal ractAngulo da clipping. 

28 

pb .pan 

word 

ParAaatroa da la aatruetura 16 BRSUC. 


Bn laa funcionaa A£S ha da praataraa atancldn, qua alguoaa funclonaa 
no aolo dan un valor da fimcldn, alno caabita valoraa da ratorao an 
varlablaa pueataa a dlapoalcldn para tal fin. Otraa fmclonaa ratoman 
valoraa raaarvadoa y aa puadaa aollcltar a travda da VOID o blan au 
abravlatura, al tllda ’**. Cuando aa Indlcan dlracctoaaa aa daban uaar 
tlpoa da varlablaa da por lo aanoa 4 bytaa da loncltud. y laa 
Indicaclonaa da laa coordanadas aa daban afactuar an tlpoa da 
varlablaa da por lo a an oa 2 bytaa da loncltud. 


Blbllotaca da apllcactda (application library) 

Nanaja loa accaaoa a otraa blbllotacaa AES. El ISA-BASIC 3-0 liana 
autoaAtlcaaanta laa funclonaa APPL_INIT y APPL^EXIT al lolelaraa 0 
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blen ftl abandoo&rse el procrua . 


APPL_1HIT( ) 

El pcofraaa actual aa anuncla coao apllcaci^n OEM. La funciOn 
APPL_1NIT da fll handle del prograaa actual de OPA-BASIC. El nunero de 
Identiflcaclda as laportante, por ej.. para la instalacldn da fonta 
adlclonalas . 

rueck Ccntlane el nuaero de identlflcacldn (ap_ld) da la apllcacldn 
{del prograaa) para el GEM. APPL_INIT ae uaa en lugar de 
APPL_R£AD, APPL_WR1TB y KQn)_RECISTER . Eata funcidn es una 
fuocldn duaay en el CFA*BASIC, qua no raallza un llaaado del 
alatesa operatlvo. ya qua la APPL_1M1T ya aa ejacuta al 
inlclarse al Intdirrata CFA-BASIC. Se retoma el ap_ld obtenldo 
en eaCe caao. 


APPL_READ( Id . 1 wi . adr^bufrar ) 


ld.lan.adr_buffer: laxp 

Con eata Instrucclda ae puedan leer bytea da un buffer da eventoa 
(aeaaaga'buffer) . 


rueck 

id 

Ian 

adr buffer 


0 • Surgld un error. 

NCiaero de la apllcacldn, de euyo buffer ae lee. 
Cantidad de bycaa a leer. 

Dlreccldn. a partlr de la cual ae han de depoaltar los 
by tea leidoa. 


APPL.WRTTE (id . len . edr.buf far ) 

Id.len.adr^buffer: leap 

De eata fona ae eacrlben bytea en un buffer de eventoa. 


rueck 

Id 

len 

adr_buffer 


0 • Surgld un error. 

Niiaero de la apllcacite, en cuyo buffer ae eacrlbe. 
Hdeero de bytea a eacrlblr. 

Dlreccldn. a la cual ae dlrlgen loa bytea. 


APPL_PlND(fnaaeS) 
fnaeeS: aejq> 

Buaca el oueero de tdentlficacldn da una apllcacldn, cuyo noabre de 
arcblvo ea conocldo, por ej. para al Intercaablo de Inforaacldn eon 
otroa prograaaa que corren. 

rueck Idantlflcacldn del prograaa buacado. -1 • aurgid un arror, no 
se vicontrd el prograaa. 

fnaae Cootlane el noabre del erchivo de 6 carecteres {aln aufljo) 
de le epllcecldn e buscer. El noabre del archive debe tener 
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lndlsp«nsablMa\ta un l&rgo d* 8 c4racMres y dab* aar 
ascrlto an aayilscula. avaatualaent* aa puede rallenar con 
eapaclos an bianco. 


EJaaplo: 

PRINT APPL_PIND ("CONTROL*) 

— > Cuando al control-acceaery aatA earfado da 2 ( e alfo paracldo) . 
alno da *1. Adaa4a da accaaory* aa puade buaear al ptocraaa proplo 
"OFABASIC* (ap_ld«0) y al actaan-aanacar ’SCRGNNCR*(ap_ld*l) , qua 
aata a dlapoaleldn por aj. para al handling da aaoda. 


APPL TPLAY(a*a.nuB.*cala) 

APPL~TRECORD(MB.nuB) 

aea.nuB.scala: laxp 

Daban taner la eapacldad da ajacutar y produelr una aarla da 
accivldada* dal uauarlo (actlvar al ratdn y taclaa y la dlatancla 
antra 4ato) dal tlpo da un grabador, tape play y racord. Eacaa 
funelonaa no trabajan aai coao aatt Indlcado an la docunantacldn GEM. 

Con varaionaa da ROM ada raclanta* aatda Funelonaa trabajan casl da 
aeiMrdo a lo Indlcado ( an lugar da Mflalar 6 byta por avento aa 
conauaan 6 byta y al acala~F*ccor caabidn actOa dlfaranca) . paro coao 
aata coaportaalento a* codo aanos conflabla *a aconaaja no uaar aataa 
funelonaa. Por aao. caapoco a* darAn ada daaerlpclonaa. 


APPL_EXIT() 


APPL.EXIT qulCa un prograaa dal AES. Bo aata caao aa llbara al niiaaro 
da idantlfleaeldn dal corraapoodlanea prograaa. al eual quada a 
dlspoaleldn da otroa prograaaa. 

APPL_B(IT axlata an CFA-BASIC aolo coao funclOn duaay, ya qua una 
Inacruccldn QUIT/Syataa ajacuca aato autoadcicaaanta. 

ruack 0 ■ aurgld un arror 

Blbilotaea da aaaatoa (aaant llbracr) 

Reaeciona Franca a Ingraaoa a travda dal ratdn. dal taclado 0 da 
avancoa dapandlontaa dal tlaapo. 

EVHT_KEYB0O 

Bapara un avanco dal taclado y ratoraa al eorraapondlanta cddlgo dal 
taclado. 

ruack Cddlgo dal taclado da la tacla pulaada (lo« byta) y cddlgo 
acan (high byta). 
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Ejeapio: 

00 

Pftim HE«(EWr_KBYBOn.'l) 
LOOP 


-*> Se vlaualiza ette c6dlgo del teclado en bexadaciael. 


EVNT_6inT0N{clicks,Baak,state[ . bx. ay, button, k_suta]) 

clicks, auk, atata: laxp 
ax, ay, button. k_stata: Ivar 

Espera un avanto dal taclsdo dal ratdn a daterainarse. 


ruack 

clicks 

mask 

stata 


■y 

button 

k stata 


Cantldad da pulsaclones caallzadas en al teclado del rstdn. 
Caotldad da pulaaelonas nacasarlas dal teclado dal ratdn, 
MAscara para la tacla dasaada dal ratdn: 

Bit 0 * Izqularda, bit I ■ daracha. 

Estado dasaado para dasancadanar al avanto. 

Inatalacldn da los bits coao an aaak. 

Coordanada x al daaancadanarsa al avanto a travSs dal cursor 
del ratdn. 

Coordanada y al dasancadenarsa al avanto a travds dal cursor 
dal ratdn. 

Estado da las taclas del ratdn, Ipial qua an stata. 

Es t ado da las taclas da conautacldn dal taclado al dasan- 
csdanaraa el avanto: 

Bit 0 • Tacla Shift daracha 
Bit 1 • Tacla Shift Izqularda 
Bit 2 <• Tacla Control 
Bit 3 ' Taels Altamata 


Los parlaetroa an, ay. button y k stata son opclonalas, astoa valorea 
taabldn ss puedsn sollcltar a travds da QINTOUTU) a QIwnxiTlll). 

EJeaplo: 


DO 

SELECT SVNT BVITOH(2.1.1.ax2.ay2.bu2.kbX) 

CASBl ” 

PUTT aaX.ayX 
CASB2 

PBOX BxX'10.vS-10.BxX*10.ayX*10 
BOSELECT 

LOOP UniL BTST(kbX,2) 

-*> Espars clicks dsl ratdn con la tacla Izqularda dal ratdn. Cuando 
aa trata da un click alapla aa flja un puoto, cuando aa trata da un 
click doble aa flJa un cuadrado. Esta ejenplo sa flnallza, al adea&s 
dal click sa pulsa la tacla Control. 


EV)rr_HOUSB(flaca>ax.ay,a».ah.BCur_x.Bcur button. k_atate) 

flass.Ba.ay.aw.ah: lexp 

acur_x,acur _y. button. k_atata: ivar 


pdglns 215 



CPA SASIC 3.0 




Espers a qua al saAalsdor dal ratdn antra o aalga da una porcldn 
ractangular da la pantalla. 

rueck Reaarvado, alaapra 1. 

flags Anuncla la entrada {0} o la salida (1) da la porciOo ractan- 
gular da la pantalla. 
ax Coordanada x Izqularda. 

ay Coordanada y superior, 

aw Ancho. 

ah Altura da la porcldn rectangular da la pantalla. 

ncur_x Coordanada x . 

Bcur_y Coordanada y dal cursor dal ratdn. 

button Eatado da lea taclaa dal ratdn al Inlctarsa al avanto: 

Bit 0 • Tacla daracha dal ratdn. 

Bit 1 • Tacla Izqularda dal ratdn. 
k_state Eatado del teclado al Inlclaraa al avanto: 

Bit 0 • Tacla Shift daracha. 

Bit 1 • Tacla Shift izqularda. 

Bit 2 * Tacla Control. 

Bit 3 • Tacla Altamata. 

EJeaplo: 

DO 

EVNT H 0 USE{ 0 . 100, 100.200.90. BsS.ayX.bul.kbX) 

IP buj 

PBOX axX*10.ayS*10.axX>10,ayt>10 
ELSE 

PLOT axX.ayJ 
E»DIF 

LOOP UNTIL B1ST(kbX.2) 

••> Sa eapara haata qua al cursor dal ratdn as ancuantra an un 
ractingulo. Si so pulaa la tacla dal ratdn, sa dlbuja un ractAngulo, 
slno un pun to. Sa finalize pulaando la tacla Control, cuando al 
aaflalador astA dantro da un ractingulo. 

Atancldn: Aunque durante la alecueldn da rutlnaa OH sa puada pulaar 
Control-Altamata. recite taodrt afacto daspuda da ratomar al BASIC. 

Aal. par aj. 'EWr.TlNER(3600000) o DQjtY 3600 Intarcalan una bora da 
pause, haata qua al calculador racorna dal OEN. 


EVNT.HESAO ( adr.buf far ) 
adr_buffer: iaxp 

Eapara qua aparazca un aansaja (aaaaago) an al buffer da evantoa. 
ruack Raservado. sleapra 1. 

adr buffer Dlraccldn del buffer da 16 byte da longltud (aessaga 
buffer) para captar al oMtaaJa (coaparar NENU(l) a 
KENU{8) ) . Cuando para adr.buffar aa Indlca 0 aa uaa 
Indepandlantaaenta al aaaaage buffer proplo dal QFA- 
BASIC, o aaa KENU(l) a NS(U(8). 
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EVNT.TIMER ( coun t ) 
count: l«xp 

Eaperu un lap*o que deb« indlcar «n allltefundos (coaparnr 

rueck Reacrvado, sl«apr« 1. 

count Cantldad da alllaagundos. 


EWr_MULTI(flac*.cllcka.Bask.at«ca.al_riacs.Bl_x,al _y.al.v.al_b, 
B2_flac«.B2_x,B2_y,a2_w.a2_h.adr_buffar,eouDC 
[.■cur_x.acur _y, button, k_atata, key, •nz_cllcki]} 


flags, cllcka,Baak.atata,al_fla(*.aI_x.aI_y.al_u,«l_h: laxp 

a2_x,a2 _y,a2_H,a2_h,adr_buffar. count: lexp 

acur_x, acur^, button, k^stata, key, anx^cllcka: ivar 


Eapera qua sa Inlelan varlos avantos. 


mack 

flags 


ana clicks 


Contlana al a van to qua raalaanta ha tanldo lugar.La 
lAstalaeldn da bits as Igual qua an av_aflags. 
Dataralna a qud avanto daba asparar la aplicaclte. 


En asta 

caso las squlvalenclaa son: 


Bit 0 

Taclado 

HU KEYBD 

Bit 1 

Botdn dal ratdn 

MU Bi/rroM 

Bit 2 

Prlaar avanto dal ratdn 

HU U 

Bit 3 

Sagundo avsnto dal ratdn 

HU M2 

Bit l| 

Evanto da aansaja 

MU HESAO 

Bit 5 

TlMr 

HU'riMER 


Cantldad da pulsaclones actlvadas dal taclado dal ratdn. 


Los slfulantaa parAaecros ya sa han anallxsdo so EVKT MOUSE, 
EWr_KEYBD, EmT_B(frrOH y EVNT.KESAO. Sin aabargo. ha da prestarsa 
atancldo, qua as puadan asparar dos dlfarentas avantos dal ratdn (al y 
a2). En ON NBfU, qua uaa asta rutlna intamaaanta. sa ajustan los 
parAastroa a travAs da OK MENU xxxOOSUB o blen sa Indies count 
dlrectaaanta an la instruccldn. 


MQ<U(1) a NEMUiB) 

MS(U(9) 

HENU(IO) - Bcur X 
HEMU(ll) - acur^y 
HENUU2) • button 
HBKUU3) ■ k scats 
NB(U(1A) • key 
NENU(15) • snx_cllcks 

EVWr_DCUCX(Da«.gat_saC) 

naH,gac_sat: laxp 

Fljt la valocldad para clicks doblaa dal ratdn. 


Nessaga buffer 

Valor da ratomo 

Poalcldn dal cursor dal ratdn 

Poslcldn dal cursor dal ratdn 

fiotdn dal ratdn 

B10S( 11,-1} 

Cddlgo Scan y ASCII 
Cantldad da clicks dal ratdn 


mack Valocldad anterior 

nav Valocldad nuava 
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gee set Tlpo de ejuate: 

0« obtener el valor actual. slA prescar acencl&n a new. 
1 ■ njar el nuevo valor para new. 


Blblloteca de aantia (>«au library) 

Asuae la funcldn de dlbujar una zona de aend y su adalnlstracldn 


MENU_BAR(tree,ries) 
tree, flag: lexp 

Conecta o deaeonecca una zona da aenO ( provenience de un resource- 
file). 

Coapare: HBflJ x$() y KENU KILL, 
ruack 0 ■ Surgld un error. 

tree Dlreecldn del Arbol dal objeto dal aand. 
flag 1 ■ Conectar la z«ia de aanO. 

0 ■ Desconactar la zona dal aend (sleapra hacla al final del 
prograaa). 

KENU_ICKECK( trM , 1 tea . flag) 
tree. Itea. flag: lexp 

Flja o borra un tilde dalante da una Inscrlpcidn del aend (por eso 
deberlan axlscir sleapra dos espaeloa an bianco dalante da cade 
Inscrlpcldn da aend). 

Coapares UNU x.O y H£m; x.l. 

ruack 0 ■ Surgld un error. 

tree Olreccldn dal Arbol dal objato del send. 

Itea Ndaaro dal objeto de la correspondlence Inscrlpcldn dal aend. 
flag 0 • Pljar un tilde. 

1 ■ Borrar un tllda. 


HENU_IBlABLS(traa, Itea. flag) 

Cree. Itea, flag: laxp 

Produce la conaxldn y deaconaxldn da Inscrlpclonas del aend. La 
correspondlence Inscrlpcldn de aend se representa entonces an letra de 
color gris claro. 

Coaparar: NB(U x.2 y MENU x,3* 

rueck 0 • Surgld un error. 

tree Dlreccldn del Arbol del aend. 

Itea Ndaero del objeto de la correspondlence Inscrlpcldn de aend. 

flag 0 ■ Desconactar. 

1 ■ Coneccar. 
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NENU_TKORMAL( tr««. title, flag) 
tree, title, fX«£: lexp 

Coneuta tltuloa <Je aeivi entre representacl6n 1/ivertlda y noraal. 

Coapare: HENU OFF. 

iMeck 0 • Surfid un error. 

tree Dlreccl6o del iitel del objeto de aen6. 

title NCiaero del objeto del correepondlente tltulo del eenii. 

flag 0 • Repreaentacldn Invertlda, 

1 • Repreaentaclta normal. 


HENU_TEXT ( tree , 1 tea , new_ tex t S ) 


tree.ltea: lexp 

new^taxtS: aexp 

Modlflca el texto de una inacrlpcldn da menu. Beta funcldn peralte 
adapter Inacrlpclones da aanCi al aitado actual del prograaa. 

meek 0, cuando aurge un error, 

tree Olreccldn del irbol del objeto del aend. 

itea Niiaero da la inacrlpcldn del objeto que ae qulere 

■odlflcar. 

new_texcS String qua contlma la luieva Inacrlpcldn de aenu 

(no debe superar la longltud de la inecripcldn anterior). 


HEHU.REOISTBI ( ap.ld .a.textS ) 

ap_ld: lexp 

■_taxtS: saxp 

Inaerlbe loa noabrea de acceaorloa bajo el primer tltulo del menu. En 
eate caao ae puedan Inatalar coao aAxlmo 6 Inacrlpclones de mend 
accesory. 


Sin embargo, esta funcldn solo puade aer apllcada convenlentementa con 
un accesory (solo en al prograaa coapllado) . 


rueck 


ap_ld 
a texts 


Caracterlsacldn para la Inacrlpcldn del send del correspon* 
dlente accesory: 

0 a 5 para la prlaera a sexta Inacrlpcldn accesory. 

-1, al no ea poslble otra Inacrlpcldo. 

Ndaero de Idantlflcaeldn del correspondlante accesory. 
Olreccldn da la correapondlente inacrlpcldn da mend. 


EJeaplo: Se auprlae en eate caao. ya qua solo ea poslble en 

accasorioa. 


Blbllotaca da objatoe (object library) 

Contiena mtlnaa para la deflnlcldn. repraaantaclte y aodlflcacidn de 
objatoa. 
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0BJ_ADD( tre« , par«nt . child ) 
tr«e. parent. child: lexp 

AgT«fn un objeto a un daterelnado 4rbol del objeto y eetablece la 
cenexldn entre loe objetoa exletentee y el ruievo objeto. 

neck 0 • Surgld un error. 

cree_adr Dlreccldn del correapondlente Arbol del objeto. 
parent NQaero da objeto del *^Jeco parental*, al cual ae agrefa el 
nuevo objeto. 

Child Niisero da objeto dal ’objeto hljo*. qua cera aeoplado al 
’objeto parental*. 

0BJC_DEtCTE( tree.del.obj ) 

tree.del^obj : iaxp 

Hodirica loe sehaladorea next, head y tall de un objeto dantro dal 
correapondlente Arbol del objeto. de tal aanara qua do ae puede 
aollcltar bAb haata qua eate aeflalador vuelva a aer reataurado. 

rueck 0 ■ Surfld un error. 

tree OlrecelOn del correapondlente Arbol dal objeto. 

del obj Ndaero de objeto del objeto a borrar. 


0BJ_0RAW ( tree . at art_obJ .depth . cx . cy . cw , ch ) 
tree. a tar.obj, depth, cx.cy.ew.ch: lexp 

Eata runelCn cepreaanta en la pantalla objetoa eoaplatoa o eua partaa. 
Opclonaleente ae puedan Indlcar laa coordaoadaa de una aeceidn 
rectancular da la pantalla, al cual ae lleltarA la repreeentacldn. 


neck 

tree 

atart_obJ 

atart^obj 

depth 

cx 

ey 

cv 

ch 


0 ■ Surgld un error. 

Dlreeeldn del correapondlente Arbol del objeto. 
NCaero da objeto del prlaer objeto a repreaentar. 
Nilearo de objeto del prlaer objeto a repreaentar. 

0 • Dlbujar aolo el prlaer objeto. 
cantlded de planoa del objeto a repreaentar. 
Coordenede x Ixqulerda. 

Coordenada y auperlor. 

Ancho y 

Altura dal rectAnfulo de llslte. 


0eJC_PlNl>( tree. atart.obj. depth, rx.fy) 

tree, atart_obJ. depth: lexp 

fx.fy: Ivar 

Eata fuicldn haca poalble indlcar laa coordaoadaa del cursor del retOn 
y da al ndaero del objeto qua ae encuentra an la poalcldn Indlcada da 
la pantalla. 

ruack Kuaero del objeto hallado. 

•1 • no ae hellO nlngte nuearo de objeto. 
tree DlreeclOn dal Arbol de objeto e anallzar. 
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start_obJ 

depth 

fx 

fy 


Nuaero del prlaer objeto e enellzar. 

Centldad de planoa del objeto e enellzar. 

0 • aolo cl ’objeto eedre*. 

Coordenada x 

Coordenada y de la poslcldn de pantalle a Indlcar. 


0BJC_0fTSEt ( tree, ob j ,x_ebs . y_abe ) 

tree.obj: leap 

x_eba,y_abs: Iver 

Calcula lea cootd en edaa ebsolutaa de la pantalle de un objeto a 
indlcar. 


ruack 

tree 

obj 

x^abs 

y_aba 


0 • Surgld un error. 

Otreccldn del correapondiente irbol dal objeto. 
N(iaero del objeto a Indlcar. 
l.aa coordenades x absolutaa calculadaa y 
laa eoordenedea y abaolutaa calculadaa. 


0BJC_0RDS)( tree.obj ,na«_poa) 
tree.obj ,new_poa: lexp 

Modirica dentro de loa planoa del objeto la aecuencla de un objeto a 
indlcar. 

ruack 0 • Error. 

tree OlrecclOn dal correapondiente Arbol del objeto. 
obj Ndaero dal nuevo piano del objeto: 

*1 ■ un piano ala arrlba 

0 ■ piano inferior 

1 • piano Inferior • 1 

2 ■ piano Inferior * 2 

etc. 


OB JC_ED1T ( tree , char , old_poa . f lag.nee_po* ) 

tree, obj, char, old_poa,flac: le:q> 

new _j>oa: Ivar 


Hace poalble el Infreao y la edlcldn da taxtoa an loa tlpoa del objeto 
0_TEXT y 0_BO)fIBCr. 


rueck 

tree 

obj 

char 

oldj^oa 

flag 


new _poa 


0 • Surgld un error. 

Dlreccldn del correapondiente Arbol del objeto. 

Ndeero del correapon^ante objeto . 

CarActer Ingreaado (Inclualve cddlgo Scan). 

Poalcldn del cardeter dan el atrlng de Ingraao. 
SelecclOn de funclonea: 

0 £D_STAfiT • Reaervado - llaeado dueey. 

1 ED_INIT • Calcular atrlng forsataado y conactar el 

curaor. 

2 ED.CHAR • Elaborar el correapondiente carAccer y 

volvar a Indlcar el atring. 

3 ED_BND • Daaconectar el curaor. 

Nueva poalcldn dal carActer an el atrlng da Ingraao. 
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OBJC_CHA»GE ( tree . obj . res , cx. cy . cw . ch . ne«_s tstus . re_dra«») 
tree.obj .res.cx.cy,cw.ch.ne«(_8tacus.re_<lr8e: lexp 

Eata funcito aodifica eX astsdo da un objeto (OB_STATE) e invlerte 
eventualaente aqueXla porcibn del objeto qtie se enctientra dencro de Is 
zona de clip. Noraaleente se eodlflca directaaente 0B_STATE y lueso se 
llaaa 0BJC_DRAH. 

mack 
tree 
obJ 
res 
cx 
cy 
cw 
ch 

new_ststus 
re draw 


0 ■ Error. 

DirecciOn del correspondlente Arbol del objeto. 
Ndeero del objeto a aodlflcar. 

Reservedo. aleapre 0. 

Coordenada x izqulerda. 

Coordenada y st^erlor. 

Ancho y 

Altura del rectingulo de lialte. 

Nuevo estado del objeto (ver 0B_STATE). 

0 ■ No dlbujar de nuevo el objeto. 

1 ■ Dlbujar de nuevo el objeto. 


Blblloteca de foraularioa <fora library) 


Contiene rutin as para la adalnlatracldn de roraularioa. 

FORM.DO ( t ree , a tart.obj ] 
tree,atart_obJ: lexp 

Eata funcldn asuae la adainlatracldn coepleta da un objeto de 
roraularioa. haata que se active un objeto con eacado EXIT 0 
TOUCH_EXIT. 

meek Ndaero del objeto. qua ha sldo actlvado para la finall- 

zacldn ( cuando as un click doble se flja el 15 *avo 
bltl . 

cree Dlreccldn del correspondlente Arbol del objeto. 

start_obj Ndaero del priaer objeto en el Arbol del objeto. 


PORM_OIAL{fla«.Bi_x.al_y.ai_w.Bl_h.aa_x.Be_y.BA_w.aa_hl 
riag.Bl_x.ai_y .Bl_w.Bl_h.sa_x.BB_y.aa_w.BB_b! lexp 

Esta runcldn slrve para reeervar o llberar secclones reetangularee do 
la pantalla y para dlbujar rectAngulos quo se coop risen 0 quo se 
expanden. 


meek 

flag 


0. cuando surgen 
Tlpo de runclta: 

0 • nO_START 

1 • PMD OKW 

2 ■ EHD'SHRINK 

3 ■ FKD FINISH 


errores. 

Reserve una zona de la pantalla. 

Dibuja un rect Angulo qua ue expanda . 
Dlbuja un rectAngulo qua se coaprlse. 
Vuelve a llberar una zona reservads da 
la pantalla. 
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ml_x CoorBonotlM del rectAnfulo 

el_y en *u •iniea expresldn. 

Bl_h 

u_x Coocdenadee del r«ccAn(ulo 

■a_y en su xAxlaa exceneldn. 

■a_w 

■a_h 

Bxplleecldn: F0M_D1A1.{1. 0.0. 0.0. 100.100. 300.100) dlbuja un 

rectAngulo qua se expande 0.0. 0.0 alfiUfiea. qua al ractArkfulo aparace 
del sadlo del ractAo^o da dMClno. 


FORM_ALSn'(button.atrlngS) 

button: lexp 

atrlngS; aaxp 

Indlca un aenaaja fanaral da alarta (ALSn'^BOX) . 

ruack HCiaaro dal botdn con al qua abandond al Alart^box. 

button Huaaro dal botdn default (por dafacto). 

0 • nlACuno 

1 • al prlaero 

2 ■ al aafundo 

3 ■ al tarcaro 

atrlngS Dlraccldn dal atrlng qua conciana al aansaja. 

B 1 atrlng tlaoa al algulanta feroato: 

[l](aanaaJa][button] 

en aata caao aon: 

1 axactaaanta un nuaaro 0 • ningiin icon 

1 • algno da axela" 

•acldn 

2 ■ algno da pragunta 

3 • cartel atop. 

aanaaje a lo auao 5 lineas de laxto con cada vet 30 
caractaraa . aaparadoa antra al con 1 . 
button a lo luao 3 noabraa da button aaparadoa con I. 

SJaaplo: 

*PORJ(_ALEirrU.BUlS( 100 )) 


F 0 nN_ERft 0 R(err) 
arr: iaxp 

Indlca un aenaaie da alarta para erroraa NS*D0S. 

ruack Nuoera dal button, coo al qua aa abandond el aanaaja 
de alarta . 

arr Nuaero da error R5*D0S. 
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Foni_CQrTBt( trM , fx, fy .fw, fb) 

Cre«: iexp 

fx.fy.fw.fh: lv*r 

Estu funeioMS c«ntran coordeoadu qua sa han da tranaferlr. 
rueck Reservado, aleapra 1. 

traa Oiraecldn dal corraapondlanta Arbol dal objato. 

fx Coordanada x Izqularda. 

fy Coordanada y tuparlor. 

fw Ancho y 

fh Altura dal ractdnculo eantrado. 


FORM^KEYBD ( traa . ob j ,naxt_ob j , char , new^^J , naxt^char) 


traa. obl,naxt_obj. char. naw_obJ: laxp 

naxc_chars ivar 

Poalblllta al Infraao da dat«a a travda dal taelado an un foraularlo 
(var 0BJ_ES1T) . 


ruack 

traa 

obi 

nexc_obi 
char 
naw_obJ 
naxt char 


0 ■ Objato pulaado cob aatado EXIT. 

Mayor qua 0 ■ OlAloqo bo flnalltado aiin. 
Olraeclte dal cortaapoodlanta Arbol dal objato. 
Niiaaro dal objato EDIT actual. 

Nuaaro dal alfulanta objato EDIT. 

CarActar laldo a Incoi^rado. 

Nuavo objato OUT para al alfulanta llaaado. 
Sifulanta carAetar. 


Aclaraelta; Eata rutlna aa una aubmtina da PORM_00. 


P0RM,BtnT0H ( traa . Ob J . c llcka . new,ob J ) 

traa.obJ.clXcks: la9 

na«_obJ : Ivar 

Haca poalbla infraaar datoa dal ratte an un foraulario. 

mack 0 ■ Al final aa aetlvd vxi objato con aatado EXIT. 

Mayor qua 0 ■ El dlAlogo no ha aldo flnalltado adn. 
traa Olraccldn dal cor raa poodlanta Arbol dal objato. 

obj Objato actual, 

ellcka Cantld«l da pulaaclonaa dal ratdn. 

naw_obJ Nuavo objato actual. 

Aelaracldn: Bata mtlna aa una aubrutlna da FDRH_DO. 


Blbllotaca da crAflcoa (frapblca llbrark) 


<fftAE.R{;BBEDBOX(ni.ry.Bln_a.aln_h[laat_w,laat_b] 
rx.ry.aln_w.aln_h: laxp 
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lut_M,lut_h: lv«r 

Coo la taela dal racda pioliada la futtclda <ZtAP_RUBSEnfiCiX r a pr aaaata an 
la pancalla al conumo da ua ractiofulo. La coordanada a Ixquiarda y 
la coordanada y suparlor aon fljaa an aaca caao, pare al canto 
wfrancado an dlafonal aal coao al aneito y la altura dal raettaculo aa 
aodlflcan da acuardo eon la poalcidn dal cursor dal ratdo. El ll fad o 
da la runcldo dabarla ocurrlr unleaaants con la taela dal ratdn 
pulaada, ya qua la funcldn aa loterruspa cuando aa daja da pulsar la 
taela dal ratdo. 

mack 0 • Snifld ua arror. 

n Coordanada x Ixqularda. 

ry Coordanada y auparlor. 

aJo_« Ancho aanor y 
aln^h Altura dal ractiofulo. 

laat_u Ancho y 

laat_h Altura dal ractAnfulo cuando aa Intarruapa la funcldn. 
Bjaaplo i 
00 

-EVNT_BinTOHa.l.l.«xX.ay«.buS.kbX) 

'OUF RUBBaUOX(axS.ayS.l.l.vS.hX) 

BOX BjU.ByS.BxS^,ayX*tkX 
UK3F UKTIL Bm(kbl. 3 ) 

••> Bapara al ellek dal ratdn. Bntoncaa aa asboza un ractdofulo 
(alAacico) qua aa dlbuja a contlnuacldn. Sa Intarmapa con Altaraata y 
la taela izqularda dal ratdn. 


aRAP_DnAO_BOX(l*,U),lx,ly,rx.ry,m.rb(laat_lx.lasc_ly] 

la.lh.ls.ly,rx.ry,zw,rti: laq> 

laat_lx.last.ly: Ivar 

Bata funcldn alrva para dasplazar un roetanfulo (Intamo) dantro da 
otro raetAnculo aayor y fljo (ractinaulo da narco). La funcldn sa 
dabarla llaaar dnlcaaanta con la taela dal ratdn ptUaada, ya qua la 
funcldn aa latamapa cuando sa daja da pulsar una taela dal rstdn. 

ruack 0 ■ Surgld un amr. 

Iw Ancho y 

lb Altura dal ractAnfulo Intamo. 

lx Coordanada x Isqularda y 

ly Coorte^^a y auparlor dal ractAnfulo intamo cuando aa 

liana la ftatcldn. 

rx Coordanada x Isqularda. 

ry Coordanada y s: 9 arlor. 

n> Anebo j 

th Altura dal ractAnfulo da aarco. 

laat.lx Coordanada x Izqularda y 

laat'ly Coordanada y ai^arlor dal rsctAnfulo Intamo cuando sa 
intarrxapa al profraaa. 
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OlAF_HOVEBOX(».h.w.fy.d«.dy) 

w.b.lx.sy.dx.dy: laxp 

La funclte GflAP^HOVSOX dlbuja uo ractAngulo daaplasabla eon ancho y 

altura conacantaa. 

rueck 0 • Suirl6 uiMrror. 

• Ancho dal ractdnfulo dasplaxabla. 

h Altura dal ractAnfulo ^placable. 

ax Coordanada x isqularda dal roctdnfulo cuando aa llaaa la 

funcldn. 

ay Coordanada y auparlor dal ractdaculo cuando aa llMa la 

funcldn. 

dx Coordanada x laquiarda dal tactAnfulo euai^ aa llaaa la 

funcldn. 

dy Coordanada y auparlor dal ractdaculo cuando aa liana la 

funcldn. 

EJaaplo: 

'(ltAP_MOVSBOX(10.20.200.20.a0.120) 


QRAP_QVMB0X ( ax . ay , a« . ah . dx , dy . d« . A ) 


ax.ay.av.ah.dx.dy.dw.dh: laxp 


ruack 

ax 

■y 

av 

ab 

dx 

dy 

da 

dh 

BJanplo: 


0 ■ Surfld un arror. 

Coordanada x laquiarda. 

Coordanada y auparlor. 

Ancho dal ractdnculo al coaanzar la funcldn. 
Altura dal ractdnculo al eoaanxar la funcldn. 
Coordanada x laquiarda. 

Coordanada y auparlor. 

Ancho dal ractdnculo al flnallxar la fUacldn. 
Altura dal ractdnculo al flnallxar la funcldn 


atAF.GRaCOxaOO. 100. 10,10.0.0, 300. 180) 


CBlAF_SKRlNCDOX(ax.ay.aw.ab,dx.dy.d«.dh) 


ax.sy.aw.ah.dx.dy.dv.db! laxp 

Bata funcldn dlbuja un ractdnculo qua aa coaprlaa. 

ruack 0 ■ Surcld un error, 
ax Coordanada x ixqularda. 

•y Coordanada y auparlor. 

aw Anebo dal raetdnculo al flnallxar la fwcldn. 

■h Altura dal ractdnculo al flnallxar lafuneldn. 

dx Coordanada x Ixqularda. 

dy Coordanada y superior. 

d» Ancho dal ractdnculo al conanxar la funcldn. 

dh altura dal ractdnculo al eoaanxar la funcldn. 
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BJaaplo: 

'0RAF_SilRDlKBOX(0,0. 300 . ISO. 100.100. 10.10) 


(31AP_WATCUB0X ( cr«e , ob J , ln_t t«M . ou t_a uta ) 
tre«.obJ.ln_acat*,out_at4C«: l«xp 

Eats funclba aupervlaa un objato (BOX) an un Arbol da reaourca 
alancraa aa pulaa una tacla dal ratdn. El aatado dal objato aa 
aodlflca cada va< ^ua al aaflalador del ratdn alcaoxa o abandona la 
zona corraapondlanca {normal aalactad/noimal) . 


ruack 


traa 

obj 

ln_ataca 
out atata 


Indlca al aatado dal curaor dal rat&i cuando aa daja de 
pulaar la tacla dal ratdo, 0 • fuera y 1 * dentro del ob* 
Jato a suparvlaar. 

Dlraecldn dal eorraapondlaota Arbol dal objato. 

Hdaaro del objato a auparvlaar. 

Eatado (06_STATE) dal objeto a auparvlaar. cuando al 
curaor ^1 ratdn aa aacxiancra dantro dal objato. 

Eatado dal objato a auparvlaar (0B_STA7B) , cuando al 
curaor dal ratdn aa ancuantra fUara dal objato. La co- 
rrmapoodlanta tnatalecldn de bite ae ancuentra bajo 
OB STATE. 


aRAP_SLlDEBOX(tree.par«nc_obj.alldar_obj.ria<) 
t raa , paran t_ob j . alldar_ob j , flat) 

Bata funeldn haca poaible aollcitar loa llamadoa da poalclonadoraa da 
vantana. bi forma alallar a lo qua ocurre con DRAQ_B0X aa puada 
daaplazar an mate caao un rmetAnfulo (poelclooador) dantro da un 
rmctAnculo da aarco. aunqua al rectdofulo dMplaaabla adlo aa pueda 
aover an forma Iwrlzontal o blan parpandicular. El ractAnfulo 
daaplaaabla debe ear adamAa un 'child object* dal ractAnfulo da aarco 
dantro dal Arbol dal objato. La funeldn aa dabarla llaaar dnlcaaanta 
pulaando una tacla dal ratdn. ya qua la funeldn aa lAtarruape cuando 
aa daja da pulaar la tacla dal ratdo. 

Poalcldn ralatlva dal poalclonador dantro dal ractdnculo 
da aarco: 

0 ■ Izqularda e blan arrlba. 

1000 ■ Daracba o blan abajo. 

Olraccldo dal corraapoodleota Arbol dal objato. 

Ndaaro da objato dal 'Ractdngulo da aarco*. 

NOaaro da objato dal poalclonador. 

Olraccldo da daaplaaMlaoto: 

0 • Horizontal 

1 ■ Parpandicular. 


QRAF^HANOLB ( char_« . char_h . boz.h ) 
cbar_H.char,b.boa_w.boz_h) : Ivar 

Da la caractarizacldn da la uorkatatlon VDl, qua aa usa Inte m aa an te 
para loe llamadoa da AES. y la extenaldn da ib cardeter da la 


mack 


tree 

parant_obj 
alldar obj 

flat 
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■ImboloflA MtAndar. 

rueck C«r»ecarlzaclte d* 1« vorkitAtloo Actual. 

char_w Aneho d* un carictar de la alabolofla aaciAdar an 

plxal. 

char_h Altura da un cardctar da la alatelocla aatindar an 

pljul. 

box_H Ancho da un raccdnculo qua ccapranda un carictar 

eatindar. 

box_h Altura da un ractinfulo, qua coaprania un carictar 

aatindar. 


aRAF_HOUS8(a.fora.dlaaAo,adr) 
a_fora,dlaaflo_«lr: laxp 

Eata funcldn poalbtllta la alaccldn da la roma dal curaor dal ratCn. 
Para aao, aa dlapona da ocho foraaa pradarinldaa o una Toiaa daflnida 
por al uauarto. Sin aabarfo. raaulta aia coofortabia aaplaar la 
Inatruccldn OEFMOUSB. 

0 ■ Surcid un arror. 

Mtearo da la foraa dal curaor dal ratdn: 

0 • ARROW Placha 

1 • TSCT_CRSR Linaa parpandlcular 

2 • HOUROUSS Abaja 

3 > POIKT HARD Hano laAalacKhj 

4 ■ FUT_HAND Hano axpandlda 

5 • THIM.CROSS Crus flna 

i ■ THICR_CRQSS Crus fruaaa 

7 ■ 0(ni. _CROSS CoBtomo da la ecus 

255 ■ USER_DIF Oaflna al uauario 

296 ■ N_OFF Daaconactar al curaor dal ratdn. 

257 ■ N_0H Conactar al curaor dal raedo. 

dlsano_adr Dlcaecldn, a partlr da la cual aa ancuantran laa Infor* 
aaelonaa da blta para la foraa autodaflnida dal curaor 
dal ratdn. b aata eaao aa aaparan 37 aorda da acuardo 
eon lo alfulanta: 

1 ■ Coordanada a y 

2 ■ Coordanada y dal punto da accldn. 

3 • Cantldad da planoa color, alaa^ra 1. 

4 ■ Color da la aiacara, alaapra 0. 

5 ■ Color dal curaor dal ratdn, alai^ca 0. 

6 a 21 ■ Foraa da la aiacara. 

22 a 37 ■ Foraa dal curaor dal ratdn. 


QRAF_MKSTATC(as.By,a_atata,k_atata) 
ax,ay,B_atata,k_atata: lasp 

Eata funcldn da laa coordanadaa dal curaor dal ratdn aal coao al 
aatado da laa taclaa del ratdn y dal taclado. 

Bata aa una rutlna AES para aolicltar al ratdn. Contrarlaaanta a 
NOUSBt ate. al proerraa aa datiaoa, cuando la flacba flfura an una 


mack 
a fora 
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linen del aenu. 

rueck Reeervado, elaapre 1. 

•X Coordecada s actual y 

•y Coordenada y del curaor del raCdn. 

s_atat« Eatado del teclado del ratdn: 

Bit 0 ■ Tecla ixquietda del retdn. 

Bit 1 • Tecla dacectka del ratdn. 

k.atate Batado del taclado con la alfulenta inatalacldn de bits: 
(Bit fljsdo • Tecla pulaada) 

1 ■ Tecla Shift derecha 

2 ■ Tecla Shift Isquierda 
■ Tecla Control 

S • Tecla Alteraata 


Blbliotece Scrap (scrap library) 

Contlene rutlnaa, que hacen poslble Intarcaabiar dates entre 
dlferentas apllcaclonas. 

SCBB_RBAS( caalnoS ) 

caalnoS: svar 

Bata funcldn lee del buffer de taxtos. que slrve para la coeunlcacldn 
de profrasaa OEM ejecutados secuenclalaente. Bstd sa dlseAd 
especlaleente para ublcar noebres da ordenadores y archlvos. 

rueck 0 • Suryld un error. 

caalnoS Caalno de acceao para el clipboard. 


$CRP_MirTB(caBlnoS) 
caalnoS: sexp 

Esta funclda escribe alpo en el scrap-directory. 

rueck 0 ■ Surfld ua error. 

caalnoS Nuevo caaliM de acceso 

BJeaplo; 

■SCBP_WIITB ( *C : \1»\A . X* ) 


'S^ READ(aS) 

PRIKT~aS 

Blblloteca aoleetora do archlvos (file selector library) 


Hece poelble eelecclonar un archlvo de un Indlce o 

dlrectaaente Indlcsndo el csalno de acceso. 
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FSQ._1NPUT( paths . n«B«S , [button] ) 

paths, naaot: avar 

button: ivar 

Cata funclte Uaaa al box aolactor da archlvoa oatAndar. Bqulvale a la 
Inatruccidn Ptlaaalactor. bi aaa eaao ae aru an foraa Indapandlanta 
la daal^^lOn cca^lata dal arcUvo a partlr da loa neabraa dal caalno 
y dal archive. Bao aa puada haear aqul eon UNSTIitpathS.*\*) . 


mack 

paths 

naaaS 

button 


0 • Sur(16 un anor. 

Caalno da accaao cona e tado pravlaaata; d aa p uAa da la 
datancldn da la funcldn eonclana al caalno da accaao In- 
dleado por al uauarlo. 

Hoabra praaalacclonado dal archive: daapuda da la 
datancldn da la funcldn eontlana al oo^ra del archive 
Indlcado por al uauarlo. 

Batado dal button: 

0 ■ Sa aalaeelond al button da ’Datancldn* 

1 ■ Sa aalaecloc^ al button *0k*. 


Blhllocaca da vantanaa (wladea library) 

Aauaa la adalnlatracldn da vantanaa. 

HlND.CREATS ( a 1 1 r . Mt . wy , vu . Hh ) 
attr.n.wy.w.vA: leap 

Esta funcldn aauncla una nuava vantana y flja loa atrlbutea da la 
vantana y au taaaAo adxlao. Bata funcldn ratoma la caraetarltacldn 
actual da la vantana (alndov handla). 


Coaparar; OPEMW#n,x,y,a.h.attr 


mack 0 ■ Surfld un error, alno da la caractarlaacldo da la vantana. 


attr 


Atributoa da la vantana con la algulanta 


inatalacldn: 
IHOOOl HAKE 

UI0002 Class 
UD0O4 PULL 
AHOOOS NOVB 
SHOOlO INFO 
SH0020 sia 
UO040 UPARRCH 
UIOO0O DNAHtOH 
SHOIOO VSLUS 
(MUOO LPASKM 
LH0400 RTASKW 
LH0600 HSLIDB 


Tltulo con noabra. 

Caapo da elatva. 

Ca*^ para taaaflo eoaplato. 
Barra da daaplaxMlanto. 

Llnaa Info. 

A]uata dal ftaafln da vnataoa. 
Placha haela arrlba. 

Placba haela abajo. 
Poalclonador vertical 
Placba haela la Izqularda. 
Placba haela la daraeba. 
Poalclonador horizontal 


Blt-no 

0 

1 

2 

I 

I 

7 

0 

9 

10 

II 


wx Coordanada x Itqularda adxlaa. 

wy Coordanada y auparlor. 

wu Ancho da la vantana. 

wh Altura da la vantana. 
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WIMD_OPEN < handle . MX . wy .««. «h ) 
handle, wz.wy.w. ah: leap 


Eata funcldn repr ea acta an la pantalla una vencana (enerada 
previaaante coo H1MD_CSEATB. 

Coeparar: 0PE?W 

mack 0 • Aparecld iska veatana. 
handle Carectarlxecldo da la ventana. 

WK Coordanada x ixqulerda. 

wy Coordaoeda y auperlor. 

«H Ancho y 

■h AlCura de la ventana al coaenzar la funcldn. 


UlND.CLOSE(hamUe) 
handle: iai9 

Bata funcldn repreaanta lo opueato a H1ND_0PEN y clarra la 
correapondlanta ventana. 

Coeparar: CLOSBh 

rueck 0 • Surfld un error. 

handle caraetarlzecldn de la correapondlente ventana. 

HlND_DELEIE(handlal 
handle: lev 

Eata funcldn borra una vencana y libera el eapaclo da eeeorla 
reaarvedo aai conn la correapondlente caracterlcacldn de la vencana. 

Coeparar: q/lSia 

rueck 0 • Surcld «ai error 

handle Caraccenaacldn de la eorteapondlence vencana. 


Ultfl>_<lEr(handle. field, Ml.u2.e3.v<l) 

handle, field: leap 
ivar 

Bate funcldn da infoteeclonae Mbre una vencana aefdn el ntieero de 
funcldn, 

rueck 0 • Sursld le error 

hai^e Carecterlsecldo de la correapondlente wcane. 

field Oe ecuerdo con el nueero de funcldn ae recoman Inforea- 
clonee aobce la corr ea pondlente vencana an vl _fwl. h 1 _bw 2 , 
y elj**- 
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4 HX_WOfUOCyMI cAlcula la* eoerdasiadaa da la zgm da 
trabajo: 

Ml Coordwiada x Isqularda. 
m2 Coordanada y mperlor. 
m 3 Ancbo y 

m4 Alcura da la corraapoodianta vaDtana. 

5 WF^CURRXVUJ calcula laa coordanada* da toda la vantana 
loclustv* lo* aArfanaa: 

m1 Coordanada a izautarda. 
m2 Coordanada y atvarlor. 
m 3 Ancbo y 

m 4 Altura da la corraapoodianta vantana. 

6 WP_PRES(XyVB calcula al taaaAo total da la vantana 
antarior: 

Ml Coordanada x izqularda 
m2 Coordanada y auparlor. 
m3 Ancbo y 

m 4 Altura da la corraapondlaota vwtana. 

7 WP_FVLLXyw calcula al taaaAo total da la vantana au 
aAxiaa axtaoaldo poalbla: 

Ml Coordanada x liquloida. 
m2 Coordanada y auparlor. 
m 3 Ancbo y 

m 4 Altura da la corraapoodianta vantana. 

8 UP_fSU06 da la ublcacidn dal poaleionador: 

Ml (1 • blao a la Itquiarda, 1000 ■ blan a la 
daraeha) 

9 WP_VSLJDB Indlca la ublcacidn dal poaleionador 
pvcpMidlcul AX' • 

Ml (1 • blan arrlba, 1000* blan abajo) 

10 WP_T0P da 1* caractarlcacldn da la vantana auparlor: 

mI Caraetarltacldn do la vantana 

11 HF_Plft3TXyUi lodiea laa coordanadaa dal prlaar 
ractio^Uo dmtro da la liata da raetdnculoa da la 
co rr aapondlaota vantana: 

Ml Coordanada x Ixqularda. 
m2 Coordaaada y aupMrior. 
m3 AncM da la corra ap ondlaota vMtana. 
m4 Altura da la corraapondlanta vantana. 

12 HPJlBCTXYiM Indict laa coordanadaa dal aifulanta 
ractAngulo dantro da la li*ta da racttaguloa da la 
cortaapondlwtta vantana: 

vl Coordanada x Ixqularda. 
m2 Coordanada y auparlor. 
m3 Ancbo da la corraapondlanta wtana. 
m 4 Altura da la corraa p ondlanta vantana. 

13 WP_R£SVD aaU raaarvado. 

15 WP_ISL1ZB calcula al tMaAo dal poaleionador 

horizontal con raapacto a la barra da daaplazaalanto: 
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■1 -I • Tauno alnlBO 

(1 • pe^ueflo. 1000 ■ Anctko bAxIbo) 

16 WF_VSLIZE cbIcuIb «1 tBaaAo del poBlclonedor 
perpef^cular can rMpecto b la barra da 
deaplaxaalanto: 
wl -*1 • TaaaAo alnlao 

(1 • paqueAo, 1000 • Ancho bAxIbo) 


WIND_SEr (handle . field , Hi , oa , m 3 , w4) 

handle, field: lexp 

w1.«2,h3,h4: Ivar 

Eata funcido aodlflca de acuerdo con el nuaero da funcldn parte* de la 
corTeapondianca ventaika. 

ruack 0 • Surfld un error. 

handle Caractarixacido da la correepoodience ventana. 

field De acuerdo con el nuaero de funcldn *e aodlflcan 
partaa do la corerpoAdlent* vescana: 

1 HF KIKD Pija nuevaa partaa de la ventana (fljedo 
i«ual qua an WIMD.CREATB) . 

Ml Hueva parte de la ventana. 

2 UP^KAMB fija un nuevo titulo de ventana: 

Ml y 

h2 contieoen la direccidn dal atring. 

3 HF_INF0 fiJa uoa aueva line* Info: 

Hi y 

h2 eontienen la direccidn del atrlng. 

5 WF_CURRXYW file el taaaAo de la vmtana: 

Hi Coordenada x itqulerda. 

h 2 Coordei^ada y auparlor. 

h 3 Ancho da la corraepondianta ventana. 

Altura de la cotreapatMllanta ventana. 

8 WP_KSLII)B ubica el poelcionador horlxontal: 

Hi (1 • biea a la ixquiarda. 1000 ■ bien a la 
derecha) 

9 WP_VSL10B ubica el poaicionador vertical: 

Hi (1 ■ bien arriba. 1000 • bien abajo) 

10 UP.TQP fija la ventana (actual) auparlor. 

14 HF.NEHDESK fija el nuevo Arbol d* eend dealitop: 

Ml High' Byte. 

h2 LoH'Byte da la direccidn del arbol do aenO. 
h 3 NOaaro dal priaer objato a dlbujer. 

15 HP_HSUZS flJa el taaaAo del poalcionedor horizontal 
coo reapecto a la barra de deeplaxealento: 
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16 


«1 -1 ■ TaaaAo alAlJio 

(1 ■ paqueAo, 1000 ■ Ancbo aixlaD) 

W_VSLIZB flj« «1 tas4Ao dal poslciooador vartlcal con 
rMpaeto • 1« bam da daaplasMlanco: 
wl •! • Taaafto alAlao 

(1 • paquaflo. 1000 • taaaflo bAxIbo) 


HIND_PIND(rs,fy) 
fx.fy: laxp 

Eata runcldn obtlena la caractarlsacldn do uno vantana an laa 
coordanadaa a Indlcar. 

ruack 0 ■ Nlsfuna vantana con aacaa coordanadaa, also carac- 
tarlzaclte da la vantana ballada. 

fx Coordanada a da la corraapondlanta poalcldo an la pantalla. 

fy Coerdan^a y an la corraapondlanta poalelte an la pantalla. 


nt(D_UPDATC( riac) 


flas: laxp 


Baca funcldn coordlna todaa laa aaiHfiaa qua aatin relaclonadaa eon al 
araado da la pantalla, aapaclalaaeta an rolacldn con nanda Pull-Doun. 


ruack 

flac 


0 ■ Suryld «a> arror. 
Ndaaro da funeldnt 


0 

1 

2 

3 


BO UPDATE 
BEO'UPOATB 

Bsa'iicm. 


Sa cand al araado da 
Coalanaa al araado da 
Apllcaeldn antra fa al 
Apllcaeldn aauna code 


ratdn. an aaca eaao aatdn earradoa 
B«ula PuU-ItoMi. 


la pantalla. 
la pantalla. 
control dal rotdn. 
al control dal 

aapaclalBanta loa 


WlKD_CAU;(a_cypa.octr,la.ly,lB.lJi.OB,oy.e«.ab) 


■_typa,attr.ljc,ly.lw,lh< laiip 
ox,oy o« Ohs Ivor 

Bata rvBKlte calcula la aatanalte total da una vantana dal tanaflo a 
parclr da la zona da crabajo 0 InvaraaBanta al taaaflo da la zona da 
trabajo a partlr dal CaaaAo da laa vantana. 

niack 0 ■ Surfld arror. 

v_typa 0 ■ Calcular la axtanaldn total. 

1 ■ Calcular la zona da trabajo. 


actr Portaa da la vantana: Blt-Nro 

UlOOOl KAXB Tlculo con al noabra. 0 

un002 CLOSE CMpo da clarra. 1 

(H00O4 PULL Canpo dal taaafVi bAkIbo. 2 

UtOOOe MOVE Barra da daaplaraalanto. 3 

UlOOlO INFO Llnaa Into. 4 

UI0020 Sia Ajuata dal tanaflo do la vantana. 5 

(H0040 UPARKM nocha hacla arrlba. 6 
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LHOOOO DNAAROW 
tBOlOO VSLIDB 
U10200 LFARRCM 
tflCAOO RTARROW 
tMOSOO 8SUPK 


Flacha hscls 
Poslclonador 
Fl»ch« hacla 
Plecba hacla 
Poalclonador 


abajo. 
vertical, 
la izqulerda 
la darecha. 
borlsofttal. 


7 

8 

9 

10 
11 


ix 

iy 

IM 

Ih 


Coordenadaa eooocldaa. 


OK 

oy 

OM> 

oh Coordenadaa calctiladaa. 


Blblloteca de resource (resource llbrecr) 

Contleoe nicinas para crear una auparflcle frifica dal usuarlo. qua 
Ind epem llan t ae an te da la reaolucldn alaflda alepllflca el Intercaeblo 
da datos antre al uauarlo y el profraea. 


RS8C,U)AD(naMS) 

nasaS: aaxp 

Esta funcldn resarva aspaclo da eeaorla y carxa un archlvo de 
r aeou rc a. A contlAuacldn ae Ptjan aaAaladoraa Intamoa y aa coovlercan 
coordanadaa de foreato da carscceres an foreato da pixel. Para 
resources daflAldas por uno slaao an la eaeorla ha da apllearse 
RSK_0BPU. 

rusck 0 ■ SuTfld un error. 

naeet Caelno da accaso dal correspoiMllanta archlvo resource. 
EJa^lo: 

-BS«_U1AC ( 'TEST. HSC- ) 


RSRC_PREEO 

Bata runeldn vuelve a llbarar al aspaclo da la eaeorla resaivedo con 
RSRC.LOAD. 

rueck 0 • Surgld un error. 

BJaaplo: 

-RSnC_PllEB() 


RSM.OAOOn ( typo . Index . adr ) 

typa. Index: laxp 

adr: Ivsr 
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BJeaplo: 

'SHEL_«lTE{l.l.l.**.*CFABASIC.Pm’) 

— > Bsco •Ignlfica, qua dscpuA* de iba n do n ar •! BASIC y d« ratomar al 
daaktop aa vuelve a inlclar al GTA-BASIC. 


SKEL.GETianx.xl) 

aru: leap 

xS: avar 

Eata funcldn haca poaibla la lactura da la aaaorla (daakcop.laf) . 

mack 0 • Surfld un arror. 

anx Cantldad da bycea a laar. 

xS String para captar loa caractaraa laldoa. 


SHEL.PVr(lan.xt) 

Ian: iaxp 
xS: aaxp 

Eata funcldn haca poaibla aaerlblr an la aaaorla anvlronaant dal OOl 
(daaktop. Inf) una cantldad da caractaraa a Indlcar. 

mack 0 • Surgld un arror. 

xS String, qua contlana loa caractaraa a aaerlblr. 

Ian Caotld^ da bytaa a aaerlblr. 

Bjaaploi 

' anunclar CFA-BASIC 

-sm (sr(2ooo.ai 

qI>WST1t(U.CKIlS(26)) 
ir q| 

aS*Lsm(aS.qS-l) 

IF INSTB(a4.*aPABASIC.PRO*)«0 

tS>aS**K 03 04 e:\aPA\OFABASlC.PROt *.0FAt ‘•HKll(4hdOa)*CHRS(26) 
'SKB. FVr(LOI(aS).aS) 

EKDIF 

EHDIP 

••> £1 pregraaa avlaa qua C:\CFA\aPABASlC. PRO aatA conactado. o aaa 
qua con cada actlvacldn dobla (click) da fllaa con al aufljo .QPA aa 
Inlcla aata GPA-BASIC. 

Atancldn: Aaagurar trabajo por aadlo da: 


'SMEL_CET(3000,aS) 

OPEN'D* .#l . *C : \DESKT0P. INF' 

PRINT tl.LSm{AE.IKSn((AS.CHRt(26)) 
CLOSE «1 

■ laportanta aaal caractar CHRS(26) 
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SHEL.PIND ( culnoS ) 
caalnoS: svar 

Eata funcldn buaca un archive en la carpaia actual, an al Indlca 
bAalco da la dlaquetara actlva y da la dlaquatara A: y an caso axlcoao 
avldencla el caalno coaplato a aate archive ( o blan xx.x o blan \xx.x 
o a:\xx.x) 

ruack 0 • Surfld un error. 

caalnoS Strlnc qua conclana el noabra del archive bua c ado. Ptnall- 
zada la funcidn esta atrinc conclena el caalno de acceao 
coaplaco al archive. 

SKEL.EMVHH ( adr .auchS ) 

adr: avar 

auchS: aexp 

Bata funcidn alrve para dataralnar valorea da varlablea en el 
bivlcofiaaot GDI. 

rueck Reaervado, aleapre 1. 

adr Dlreccldn. delanta de la cual flsura el atrlnf Indlcado en 

auchS. 

auchS Strlnf qua contlene lea paranetroa de buaquada (por 
aj. A!\). 

Bjeeplo: 

PRINT SMEL SJVRN(a>.*P*> 

PRINT CKAflTa*-!) 

--> Se avldencla: PA’ni«;A:\ 


Procroaea de ejeaplo 

En eata apertado ae aueatran varloa procraaaa de ejeeplo 
y aa expllca breveaante aua funclonea. 


' Blblloteca frAflca 

REPEAT 

CLS 

PRINT ‘rubber • 1. drac • 2, aove • 3> ahrink • A, ende • 0* 
INPUT *Mhl: *;vahlt 

ON HahlX OOSUB rubber, dree. eove. crow ahrink 
UNTU. vahlS-0 
» 

EDIT 

PROCEDURE rubber 
CStAPtBIOOB 3 
DEFFIU. 1,2,4 
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REPEAT 

HOUSE Bxt.ByJ.akS 
IF akX AND 1 
XlX«BxX 
yl*«ay* 

'CRAP RUBBERB0X(xlX.ylX.l6.l6.1xX.lyX) 

PBOX laX.yU.xlX«ljO(.yU*lyX 

EKDIP 

Uirrxi. BkS AND 2 
RCIVRN 

PROCEDURE drac 
CRAPKMOOE 1 
OEFPILL 1.2.4 
REPEAT 

HOUSE utX.ayX.akX 
BOX 50.50.200.150 
BOX 40.40.400.300 
IP akX AND 1 

'(RAF 0RA(SOX(15O.10O.50. 50.40. 40. 400.300. ija.lyS) 

PBOX LcS.lyS.lxS>150.1yX*100 
QfDlP 

UNTIL akX AND 2 
RETURN 

PROCEDURE BOV* 

ORAPHNODB 1 
DEFPIU. 1.2.4 
bX*64 
hS>S4 

FOR 1S«0 TO 639-bX STEP bX 
FOR jX«0 TO 399-hX STEP hX 
'GRAF HOVS80X(bX.hS.lX.jX.639>iS.399>Jt) 

NEXT jX 
NSCT IX 
RETURN 

PROCSmRB crow abrlnk 
OUPIMODS 1 ” 

-CSAF (BVMB0X(319.199. 16. 16.0.0.639. 399) 
print" 'S ato fua croF jrmbox* 

PRINT ’Oprlu una taela* 

*INP(2) 

*(nAF_SHRllO(BOX(319. 199. 16.16.0,0.639.399) 

PRINT *Bato fua cr^_aiu‘lAkboa* 

PRINT 'Oprlaa una Cacla* 

-1NP(2) 

RETURN 

— > Prafunta por la rucloa daaaarta y bifurca a la raapactlva procaduca. 

1 : El profraaa dlbuja un ractAngulo a partlr dal aoaanto an quo 

aa oprlaa al bo(do laqulardo dal ratdn. Nancanlaodolo apratado uaMd 
puada varlar al taaaAo dal raetAnfulo. Al dajar da pulaar al botdo 
al ractinculo aa rellanado con un color. Puate aallr da oata rutlna 
apratando al botdo daraebo dal racdn. 

2 : El procraaa dlbuja im cran ractinculo y dantro da *1 un aafuniJo 
ractinculo. Nlwitraa qua aaatanca pulaado al botda laqulardo dal ratdn 
puada aovar al aacvaido ractinculo daatro dal eontono dal prlaar 
ractinculo. Luaco al ractinculo aa rallaoado. Puada aallr da la rutlna 
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pulautdo al boUn daraciio dal racte. 

3 : El prosraaa bifurca a la procadura CRAF^HOVEBOX, qua baca (Irar 
una aarle da raccAnculos alradador dal caacro da la pantalla. 

4 : Ea dlbujado un raccAn(uIo qua aa aatlenda y luago da apratar 

una cacla vualva a raduclrsa. Puada latarnavlr al prograaa apratando 0. 


' Adaiola eracidn da boxas da dlAlofO 
DIM r){(3) 

' Indlcas da raaourca para DIALOG 

foralSaO IForaular/Dlalog 

Ikonlgal tlCON irbol FORMl 

vorS>2 tPISXT ao Artel FOfWl 

nacX'3 TFT&cr an Artel FOBMl 

atrS<4 tlTtJCT an Artel FDRHl 

ortS«5 tPien' wi Artel FORMl 

abbruchXafi IBUTTON «i Artel FORMl 

okSa? IBinrON an Artel FORMl 

rJUJaS IBinrON an Artel FORMl 

r;l(2)a9 I BtnrON an Artel FORMl 

rS(3)al0 IBimON an Arbol FORMl 

auagabalaii iSnUMG an Artel FORMl 

'RSRC FREEO 
RESERVE FRE{01*32000 

ladan_oklaRSRC L0AD(*\dialoc.rac*| I carcar Raaourca 
IP HOT ladao_<*t 

ALERT l,*no ancuancro al RSC’.l.* RaCum '.aS 
RESERVE FRB(0)*32000 
EDIT 
B(DIF 

'RSRC GADDR(O.O.traaS) IDacamlnar la dlraccldo dal Artel da objatoa 
-FORM~CBnBt{traaS.Jd.y2.«S.hX) tCantrar coordlnadaa dal objato 

t “ 

' Ocupar loa para adltar coo t a a toa 

CHAR((ce_SPeC(eraaX.vo(4)}}a*Johann SabaaUan* 

CHAR({0e SFBC<traaX.aacS)}}a«Bach* 

CHAR{{Oe~SFBC(traaS.atrI|}}a*Kantacanfaaaa 77 ’ 
CHAR{{Oe~SPBC(traaS.ortJ)))*'Draadan* 

'OBJC_DRAW(ttaa)i.0.l.x|,yS.«X,hS) IDlbujar Artel da objacoa 
REPEAT 

axXBF0RH_DO(traa(.0] IFua aalacclonado un objato con aatado ExlfStatua 7 

' Laar taxtoa da loa caapoa 
vomMaS*CHAR{ {0e_SPEC( traat.vorS ) )] 
nacbnMal»CHAR((Oe SPECt CraaX.naeJ)}) 
atraaaaS«CHAR{ (0a,SPBC( traaS .acrX) } } 
ortS«CHAR( {OS.SPBC < traaX . ortS ) } } 

< 

FOR 1X*1 TO 3 

IF BTST(0B STATE(traaX.r]l(lS)).0> tcual Radio-Button 
radloi«t{(lS) tfua aalacclonado 7 

B<D1P 
NSrr IS 
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UNTIL axX«olcX OR «x}«abbruchX 

'RSRC FREBO Ireaervlertao Sp«lcherplacs vlsder fr«lceben 
RSBRVB FRE(0)«32000 


OS 

PRINT "Sail* con 
PRINT "Nosbr* 
PRINT *Apellldo 
PRIWr ”01t»ccl6n 
PRINT “Ciudad 
PRSrr “Radio 


•:ax* 

“tvornaaeS 

*;nachnaaeS 

*;atraaaaS 

*:ortl 

*;radloX 


> arctilvo DIALOQ.RSC aa cargado. y dataralnada la dlraeeldn. Luago 

laa coordanadaa dal objeto aon cMtrKlaa y loa eaapoa para adltar 
aon ocupadoa con acrlnga. Bato aucada por aadlo da 0B_SPBC. 

Eata funeldn davualva un aaflalador a una aatruetura IRDINTO. an la cual 
aatan alaacanadaa tnroraaclonaa aobra un taato, eoao p. aj. dlraccldn dal 
caxco. al argo. ate. Bata aatruetura cootlana por au parta otro aaAalador 
qua indlca al atring an ai. 

Objato — > Batruetura Tadlnfo — > String 

B1 4rbol da objetoa aa dlbujado. paaando luago a la aatruetura do 
rapatlcldn REPEAT umiL, qua controla parlodlcaaaDta loa objatoa por 
aadlo da FORM DO. El prograaa coapruaba al fua aalacclonado un objato con 
aatado BUT y~an aaa caao abandona la aatruetura da rapacleldn. Al final 
Indlca al nilaaro dal bocdn con qua aalld do la rapatlcldn. loa datoa qua 
uated antrd y al nOaaro dal botdn da radio aalacclonado. 


' Prograaacldn da la barra da aand 

' Raaarvar aaaorla para al Raaourca. cargar Raaourca 
' y viauallxar aand. 

RESERVE FTtE(O ) -33000 
IP RSRC_UJAD(“\handbuch.tac“)«0 

ALERT I, "Mo aocuantrolal archive da Raaourca.*.!.* Batum .aj 
RESERVE PRB(0)*33000 
EDIT 
EHOIP 

'RSRC QADDR(0.0,BeDU adrS) 

‘KBNU.BAR ( aanu^adrS . 1 ) 

' Inatalar Buffer para aanaajea y preparer varlabloa 
DIM aaaaaga_buffarX(3) 

Ma_adrt> V : aaaaaga_buf farS (0) 

ABSOLUTE aao_typafc,aaa_adrE 
ABSOLUTE B_CltalE.aoa_adrS*6 
ABSOLUTE ■_alntrag&,aaa_adrE*8 

RS>EAT ^ 

'EVKT_MULTl(«110000.0.0.0,0.0.0.0,0,O.O.O.O.O.Baa_adrX.100) 

' al fua aalacclonado un Itaa da aand 
IP aei typa&*10 

' al^fua aalacclonado un Itaa dlfaranta al antarlor 
IP obJ_nrE<>a_alntragl> 
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obj_iu'J*m_alntr*cA 

tlCelS>CHAn(QB_SPEC{Mou_adrt.a_tlcal(>)} 

•lntraf<>CKAB{OB SPEC(nou adrS.a aljicraffc)} 

PRIWT AT(3.20];’fltulo d« mdC: " ■:Ut*XS:SPC{13) 

PHlwr AT(3.22);-Itw <te Mod : *;elAtra>fS;SPC(13) 

'Ha<U TNORNALtaenu adrj.o.citoll.l) 

EMDIF 

EHSIF 

UNTIL NOUSEX-2 

' Borrar barra da aand, allalaar aX Raaource da Xa aeaorla 
‘ y Xlbarar Xa aaaoria raaarvada 
-NOn)_BAB (aefuj_adr)l . 0 ) 

*RSftC_PREB() 

RESESVB FRB{0)*33000 
END 

— > AX coolanzo dal prorraaa mo carcadoa 33 KlXobyta da Raaourca daapuds da 
habar raaarvado aaaoria. Bata aaaoria raaarvada as luago Xlbarada al 
taralaar aX profrau. 

Lxiago da cargar al archive as daearainada Xa dlraccldn dal ArboX da aenii 
y vlsuallzado. 

La adalnlstracldo dal aend sucada per aadlo da EVNT_HULTI. Si aalacclona 
un Itaa da aanu, teto as raclatiado 00 al buffar da aaosajas. Bsca astA 
coapuaaco por 16 Bytaa an forM da 8 aords. 

En los prlMroa dos Bytas as raflstrado aX Duaaro 10 si fua salaecionado 
un Itaa. A partlr daX sasco byta sa encuantra al ndsaro da objato daX 
Itao. 

Ustad puada aallr da la astruccura da rapatleldn apratando aX botdn 
daracho dal ratdn. La funclte BVKr_MULTI controls al aand. Bn las 
variables a_tltalA y a^eintrscA sa encuentran Xos oilaaros da objato dal 
tlculo da asnd y itao seXacclonadoa . 0B_SPBC saAala a una astructura 
TED_1HTO. an la cuaX en los prloeros 4 bytes as encuantra otro saAalador 
qua Buastra sob re eX taxto dal objato. Da seta aanara puada dataralnar al 

texto dal Itao 

salaecionado. 

OaspuAs da ascrlblr aabos taxtos an Xa paotaXla, aX tltulo dal aaniX os 
ralavartldo pasando al astado noioal. 


' Adalntstraeldn da vantanas 

OEFPILL X.2.4 
PBOX 0,19.639,399 
DS7ILL X.O 

DIN oassaca.buffarKS) t 16 Byta 
adr_aasS • V : osss afo_buf far;i ( 0 ) 

ABSOLUTS vordOA.adr aasS 
ABSOLUTS xA.adr aaal^^ 

ABSOLUTS yi.adr'aasl*10 
ABSOLUTS «4.adrlMsS*12 
ABSOLI/TB hl>.adr_aaaX*l4 

handXaA*WlND_CREATE(Ua01X11.0.19.839.380) 
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tlt«lS**WlAd(w' 

■dr tltS«V:cltalS 

*H1ND SKr(b«MU«A.2,CAIlD<SWAP(«dr_tltS)).CA»Madr tlc]^).0.0) 
*HIin)_(PB((hndl*A.100, 100.200.100) 

*vim (MTibBMUaA.A.MU.wyi.HMA.attfc) 

PBOX iiifc.»y4.Ma«M^.vy&*afaA 

r*u« ! •PALSe 
REPEAT 

' la prtJOMi linM Mlo fu« dlvidlda por ruonaa da aapaeie 
-Bm_KJLTI(tX110000.0,0.0.0.0.0.0.0.0.0.0.0.0,adr aaaX.lOO) 

SELECT wordOE 

CASE 22 t UH.CLOSBD 

raualaTRUE 

CASE 23 t UM PULLED 

'HDO SEr(baDdla4.3.1.19.63E.380) 

raOX U(4,wyt.m4*««4.i>y4«att4 
w»d0t*0 

CASS 27.26 I WN_S1ZBD. UM NOVQ 

IP Mi<100 

•I'lOO 

8MD1P 
IP ht<60 
U'dO 
aiDlP 

* VDn>_SET ( handl #4 , 3 . «4 . y4 . wt . ht ) 

*WI)a)_aCT ( handl a4 . 4 . «4 , vy4 . wh 4 . idt4 ) 

PBOX V)i4.i0'4.ux4*»*4.)>y4*«b4 
■on)04<0 
BQSB.ECT 
UKTIL rtual 
‘WIND CL0SS(bandla4) 

'UlND^DCLmthandlaA) 

“> A1 prlnclplo dal profraaa aa Inatalado un Buffar para aanaajaa, an al 
dabao aar aaerltaa tcdaa laa aalacclooaa bachaa a alaMntoa da 
altaracldo da vaotana. 

La vantana aa craada c«n WIND_C91EATE. WIND_SET la flja un noabra. 
Daapuda da abrir la vantana CM HIND.OPEK al profraaa laa loa datoa 
da la au^rflcla da trabajo y eubra la auparficla con un ractdnculo an 
bl«teo. 

b la alfulanta aatnictura da rapaticldn loa alaaantoa da altaracldn 
da vantana aon eontroladoa por la funcldn EVirr^HULTI. Loa dlfarMtaa 
CMoa aon tratadea an CASS. El procraaa flnaliaa al aalacelona al 
aloaanto da clarra da vantana. 
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12 - Ao«zo 

CoapAtiblUdad COB el GPA-BASZC 2.xs 

el OFA-BASIC 3.0 M poelbla eaplear profraBoe de verslones 
•nterlorea de QPA-BASIC. Para aao. aa dabac alaacanar aatoa profraaaa 
con la varalte aotlcu* ccao arcfalvo ASCII (Sava. A) y aa daben car^ar 
an la varsldo nuava coo Marga. Una vex bacba aata transfarancla aa 
puada tegulr uaando el prognaa an 0PA*BAS1C 3>0 oon Save y Load. 

Todaa laa Inxtrucclonaa contanldaa on varaionaa antarlorea del 
Intarprece Baalc taabidn aa ancuantren an la veraldn 3-0- ^aro an 
p>arta exlatan paqtianaa deavlaclODea an el elgnlflcedo da la 
Inatruccidn. qua reqularen de una adapcacite. 

HUL DIV 

Bn la veraldn 3*0 Inacrucclonaa WJL y DIV elaboran con varlablaa 
anteraa (I.4.S) aolo pardaacroa antaroe. 

Bn let varaionaa antarlorea 

aS>10 
Min. aS.2.3 

llevaba a que an aj flturara el valor 25- Sin eabargo. la veraldn 3.0 
no roapaca loe lugarea datria de la coaa an loa parAaatroa de la 
Inatruccidn MUL. de tal aanera que aS ea Igual a 20. A caablo de aata 
Ineoapatlbllidad, laa Inatrucclonea aanrlonada* eon aucbo aAa velocea 
que an veralonaa antarlorea de 0PA>BASIC debldo al eaplao de una 
verdadera arltadtlca de antaroe. Atnque eato vale dnicaaanta para 
varlablaa anteraa. 

PRINT USING 

En caao de deabordaaianto, PRINT USING no reporta el ndaero no 
foreateado. alno linicaMnte loa ndearoa qua caben en el foreato 
correapondlenta y con aao avaatualaanta valorea falaoa en lugares de 
foraatoa falaoa. Adaaia. on el foreato exponanclal taabidn ae tratan 
Buchoa alaboloa *’* en forea correcta y cuando aa trate de varloa 
lufarea antea da la coae ae reallxa un ajuate del exponente. 

CLS-PRIKT TAB 

Con CLS ae evldencla ahora BC-E-CR, de tal eanera que el prleer PRINT 
TAB ea tratedo correctaeente. 

KEYPAD 

Un procrana, que aollclta laa teclaa del bloque nuadrico con Alternate 
y/o Control, necealta ahora un KEYPAD 0 para deaeonectar la 
Inatalaeldn eapeclal de teclaa. Lo eiaao vale para laa teclaa de 
funcldn con Alternate. 


MOUSEX-HOUSEY 

Cuando hay ventanaa activaa y ae aollcltan HOUSEX/HOUSEY. reaultan 
coordenadaa negetlvaa por enclsa y a la ixqulerda da loa llBltea de la 
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vancaiM ( CLIP CVTSBT reap.). Bn la varaiAn 2.X aa ratomaba 
CARD(MOUSB() 0 blen CARO(NOtBEy) . 

LuafD aa puaden acalarar notorlaaanta loa pvafriaai ganaradoa an al 
lntAn>rata al aa aaiplaa al coapllador dal (VA*BAS1C. Oa aata foraa 
aurgan procraaaa qua taablAo aa puadar corrar ala al IncdrpraCa. 
AdaaAa aa poalbla la apllcaclte dal lacdrprata nM*OHLY eoBtanldo an 
al dlaeo aualAlatrado. Gata puada aar agracado a procraaaa pn^loa y 
dlfundldo por aqualloa coapradoraa dal OPA-BASIC qua aacdn 

Inaerlptoa. Aal aa poalbla al uso da profiaaaa an GFA^BASIC para 
uauarloa alo intdrprata da (jPA-BASIC proplo. 

Tabla OBHDOS 

*oaa»s<0) ptaraon 

Flnallaa un procraaa. Ho aa daba uaar QPA-BASIC. 

rS'OENDOSd) cecnlaO 

Laar cardctar dal taelade eon IMlcacldn an U pancalla {coaparar 
lNP(2n. 

rj Bit 0*7: Cddlgo ASCII. 16-23: Cddlgo Sean. 24-31: Taclaa da 
conautaclte. 

'CaiD0S(2.aX) ceoaoutO 

Evldanelar eardctar an la pantalla (covarar 01712, aX>. 

t{ Bit 0*7: CddlfO ASCII dal carAetar. 

rS*aEND0S(3) eaualnO 

Laa un carActar do la lAtarfaaa aarlada (coaparar INP(l)). 
rX Cddlfo dal eardctar laldo. 

*G£XD0S(4,aX) eauxoutO 

Evldanelar earActar an la Intarfaaa aarlada (coaparar OtTTl.aX). 

sX Cddlgo dal earAccar a avldaneiar. 

-aa(D0S(5.aX) cpmoutO 

Evldanelar caractaraa an la uttarPaaa da la lapraaora (coaparar 
OUTO.zX). 

zX COdlfo dal earAccar a avldaneiar. 
rX»<aiOOS( 6 .zX) craaloO 

Laar o aacrlblr carActar dal taclado aln ladlcacldn an la pancalla 
(coaparar OUT 2.zX aal coao INKEYS). 

rX con zX*255 «I carActar laldo por al taclado. 

zX Cddlgo dal carActar a avldaneiar. con zX*255 laar carActar. 

rX*aOII)OS(7) crwclnO 
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L«er csrAcMr del teclado eln ln<Uceel6n en la pantalla (coaparar 
IHP(2)). 

rS CddlfO del cardcter leido. 

rS«GEXD0S{8) cneclitO 

I(ual qua G9ID0S(7}. pen> aln taner an cuenta caractarea da control, 
por aj. CTRL * C. 

rf Cddlfo dal carActer laldo. 

'CEMD0S(9.L:adrS) cconvaO 

Bvidancla una cadana da earaetarea an la pantalla. 

adrl Dlraccidn dal atrlnc. qua daba tecalnar con al byca caro. 

'aEMDOS(10.L:adc<) cconraO 

Lea a Incorpora una cadana da caractaraa dal taclado (CTRL^C conduce a 
la Intarrup^dn) . 

add Buffer para atrlnc: *1 prlaar byta as la cantldad da earaetarea 
a laar, al aafundo byta as la eancidad da earaetarea laldos, 
luago tlfua al string. 

rlMSDOOSUl) cconlsO 

Ravlaa, al hay un carActar en al buffer dal taelado. 
r( Es TRITE, euando aalsta un earAetar. aino as FALSE. 

-OEMOOSUil.dX) daatdrvO 

Plja la dlsquatars actual; 0*A,1«B. ate. (coaparar CHORIVC). 
dS NAaaro da dlaquatara. 

r!«<ra(D03(l6) econoaO 

Ravlaa. al an la pantalla se puada evldenclar un carActar. 
rt Estado da sallda, aleepra es TRUE. 

rt«0BID0S(17) cpmosO 

Etavlsa. si aa puada avldanclar on la Intarfasa paralala. 

rt Estado da sallda. as TRUE euando puada reelblr (norealaanta 
lapresora) . 

rl>OENDOS(l8) caualaO 

Ravlsa, al oalata un carActar an la intarfasa sarlada. 
rt TRUE euando aalsu un carActar. slno as FALSE. 
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rI>aEMD0S(19) caujcoaO 

Rsvlca •! Mtado d« •allda d« X« IntarfMa urlada. 
rt TRUE, «l u pueda evldanelar un carBetar, aljio at PALSE. 

rS-GSlD0S<25) d«atdrv() 

Datanina la diaqtiatara actual. 

rX Hiiaaro da la dlaquatara actual (A*0. B«l. ate.) 

'aEXDOS{26,L:adrX) faatdtaO 

Flja la dlraccldn da tranafarancia da dlaco (DTA), ooraalaanta 

BASEPAaE*128. 


adrX La dlraccldo qua sa daba fljar. 

rX*OSIDOS(42) t|atdata() 


Calcula la faeha dal alataaa (ceaparar OATES). 

rX Facha; Bit 0-4: dla, 5-8: Haa, 9*15: AAo aanoa 1980. 

-GEXDOS(43.dX) uatdataO 

Plja la facha (coaparar SETTUIB). 

dX La facha nuava (foraato var GDOOS (42)). 

rX*a9ID0S(44) tfattlaaO 


Caleula la hora dal alataaa (eoaparar TINES). 

rX Kara: Bit 0-4: aafundoa, 9*10: alnutaa, Xl-19< aafundoa. 

'OEMDqS(49,cX) caatclaaO 


FlJa la hora dal alataaa (eoaparar Sfa'l'l'lNB) . 
tX 1^ nuava hora (foraata var GEMDOS(44)). 
rX>OOOOS(47) fcatdtaO 

Calcula la dlraccldn actual da tranafarancia da dlaco (OTA). 
rX La dlraccldn calculada. 

rX>caiDaS(46) avaralonO 


Caleula al nuaaro da vamldn ODOOS. 
rX El ndaaro da varaldn. 

IGENDOS(49.L:bX.rX) puraraaO 

Flnallza al profraaa y lo aantlena raaldlando (an <7A-BAS1C no aa 
puada uaar) . 


paclna 248 



OFA BASIC 3.0 


ANEXO 


bS C«atld«d da bytM a aaotarwr rasldlaodo a partir da BASEPAQ 8 . 
rj Valor da tranifaraocla al procraaa a llaaar. 

rXaEMDOS{54.L:adr](.<U) dfr«a(l 

Calcula datoa a cravda dal aapaclo da aaaorla da un diaco (coaparar 
OFREE). 

rj -46 al aa indlcd uo niiaara da dlaquacara arrdnao. 
adrt Dliaeclte da una aatxvecura Diak-lafo da 4 por 4 bytaa da 
taaaAo; 

Lonf 1 ; Cantldad da cluatar llbraa. Loof 2: Cancldad total da 
cluatar, Lone 3: Bytaa por aactor. Lone 4: aactoraa por 
cluatar. 

rX>aaattS(S7.L;adrX) dcraataO 

Ublea una carpata an al Indlca actual (eoaparar KKDIR). 
rX -34 o -36 al aureld un arror. 

adrX Dlraccldn dal nuavo noabra da lacarpata (daba taralnar byta 
caro) . 

rX*0O(DG6(&8.L:adrX) ddalataO 

Borra un ordanador (co^arar RKDIX). 
rX * 34.-36 o *65 al auTfld un arror. 

adrX Dlraccldn dal noabra dal ordanador (data taralnar an byta caro). 
rX-G3IDCS(59.L:adrX) daatpathO 

Caabla al Indlca actual. 
rX -34 al no aa halld al nuavo Indlca. 

adrX Dlraccldn dal noabra dal Indlca (daba taralnar an byta caro). 
rX*<iaiD0S(6O.L:adrX.aX) feraataO 

Ublea un nuavo archive (cooparar OFGH'O*). 
rX * 34 . *39 o -36 al aurcld uo arror. 

adrX Dlraccldn dal noabra dal archlvo (daba taralnar an byta caro). 
aX Sa fljd bit Oi archlvo protaeldo, 00 aa piMda aacrlblr. Bit 1 : 

Archlvo aacondldo. Bit 2 : Archlvo da alstaaa (ca^ldn 

aacoadldo) . 

Bit 3: Hoabra dal diaco. 

rXMiaiOOS( 6 l.L:adrX.aX) fopanO 

Abra un archlvo (coaparar con OKN}. 

rX *33. *39 o *36 an eaao da arror, atno handla dal archlvo. 

adrX Olraccidn dal ooabra dal archlvo (daba taralnar an byta caro) . 
aX 0 para laar. 1 para aacrlblr, 2 para laar y aacrlblr. 

rX-OENDCS(62.hX) rcloaaO 

Clarra uo archlvo (coaparar CLOSE). 
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rS -37 ■! iurfl6 un error. 
hS Keodle del archlvo a cerrar. 

ri;>Caa)OS(63.hS.L:IX.L:adr{) fraad(] 

Lee bycea 4e un archive abierto (ca^arar B0£T). 

rS -37 en case da error, aino cancldad da bytea laidoa. 
hS Handle dal archive. 

IX cancldad da bytaa a leer. 

adrX Dlreceldn a la eual aa daban aaeriblr loa bycaa. 
rX>GDO)OS(64.bX,LslS.L:Klr;i) fwrlcaO 

Eacribe bytaa en un archlvo (coaparar BPOT). 

rt -36 0 -37 en caao da error, alno cantidad da bytaa aacritoa. 
hS Handle dal archlvo. 

IX Cancldad do bycaa a aaeriblr. 

adrX Olreccldn, a partlr da la cual flguran en la aeeorla loa bytaa 
a aaeriblr. 

rX'CGMDOS ( 65 . L: adrX ) rdalata( ) 

Borra un archlvo (coaparar UU.). 
rX -33 0 ~36 al aurgld un error. 

adrX Olraceldn dal nortre del archlvo (debe flnallaar con byte earo) . 

rX>GS(D0S(66.L:nX,hX.aX) faeekO 

Vualve a fljar da nuavo el aaAalador para aeeeaoa a archlvoa (coaparar 
S£Q(, RELSEQO. 

rX -32 o -37 al aurfld un error. 
nX Cancldad da bycaa a aaltaar. 

aX 0: a parclr del coalenio del archlvo, 1: a partlr da la poalcldn 
actual. 2: a partlr dal final dal archlvo. 

rX*a£>IDOS(67.L:adrX.aX.aX) factrlbO 

Lae o eacribe acrlbutoa da in archlvo. 

rX -33 0 -34 «> caao da error, alno acribucoa dal archlvo qua ae 
uaaroo haaca al aaaanco. 

adrX Dlreceldn dal noabra dal archlvo (debe flnallrar con byte cero). 
bX 0: Leer atrlbucee dal archlvo, 1: aaeriblr atrlbucos del ar- 
ehlvo. 

aX Atrlbucos dal archlvo: Bit 0: protafldo, no aa puada aaeriblr, 

1: aacondldo. 2: Archlvo da alacaaa. 4: oedanador. 5: bit da ar- 
chlvo. 

rX>aBIDOS(69.hX) fdupO 

Genera un tecundo handle del ardilvo. 

rX *35 o -37 an caao de error, aino aefundo handle del archlvo. 
hX HI handle original dal archlvo. 
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rX«CDID0S{70.hX.nb2) fforceO 

Plja un auevo handle da aallda para datos qua salan dal OIDS. 

r% -71 al lurgld un error. 

hi Ra^le del canal da dacoa a daavlar. 

nhS Handle dal canal, al cual ae daavlan loa datoa. 

ry>GSID0S(71.L:adrl.dS) d(ecpachO 

Caleula el caaino da aceeao actual de una dlaquetera (co^arar DIBS). 

r% -46 al aurfld un error. 

edrS Direccldn a partlr de la cual ae debe depoaltar el caaino de 
acceao. 

di Carecterlaacldn da la dlaquetera (0«actual. 1>A, 2*B.etc.). 

vi-tJOaOSm.litX) aallocO 

rX para lonfltud del aayor eapaclo de aaaorla libra, alno 

dlreccldn Inlclal de la xona reaervada o aenaaje de error. 
bl Cantldad de bytea a reaarvar. para bS«*l ver rX. 

rX^GBBKSmX-.tarX) arrMO 

Libera una zona reaervada eon OEMDOS(72) (coeparar MFREE) . 

tX -40 en caao de error. 

adrS Dlreccldn da la zona de aaeorla a llbarar. 

r{>OS(DOS(74.L:adrX.L:bS) aahrlnkO 

Acorta una zona reaervada con QOU)OS(72} (coaparar PtSKRlKK). 

rX -40 0 -67 al aurgld un error. 

edrX Dlreccldn de la zona de aeeorla a achlcar. 

bX Hueva loncltud de la zona de aeeorla en bytea. 

rX-caiDOS(75.aX.L!pX.L:cX.L:aX) pexecO 

BJecuta un profraaa coao aubprosraaa (coaparar SlEC). 

rX '32. -33. -39 o -66 en caao da error. 

aX 0« Carsar e Inlclar. 3: Carsar. 4:Inlclar, 5= senarar Baaepace. 
pX Dlreccldn dal noabre del profrana o eo aX*4 el baaepaae. 
cX Dlreccldn da la llnea de coaando ( no en aX<4) 
aX Dlreccldn del atrlnf de envlr on ae n t { no m aX*4) 

-CB(D0S(76.rX) pteraO 

Flnalza al profraaa en ejecucldn (coaiparar QUIT. SYSTEM). 

rX Valor de recomo al prograae que ae llasa. 

rXeOOIDOS(78.1-:adrX.aX) faflratO 

Buaca en al Indlce actual archlvoa conb daterainadoa noabrea. B1 
noabre ballado ae depoalta en OTA. 
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r)t -33: no m hollA el erchivo. -49: no hey otros erchlvos. 

•drS Dlreceldn dal noabr* del archlvo (pueda contanar los wildcards 
• y ?). 

aX Atrlbutos del archlvo: Bit 0: protesldo. no M puada aserlblr. 
1: ascondldo. 2: archlvo da alstaae, 3: noabra dal disco. 

4: ordensdor. 5 : bit dal archlvo. 

rX«GEMDOS(79) fsnextO 

Continue la busquada Inlclada con QEMDOS(78)- 

rX -49 si no caban aAa erchlvos an al string da bCsquada. 

rX«GEMD0S(d6.0.L:oX.L:nX) frensMO 

Ranoabra un archlvo (coaparar HANE, RQIANE). 

rX -34 o -38 si surfl6 un error. 
oX DlracclCn dal noabra anterior dal archlvo . 
nX Olraccldn dal noabra nuavo dal archlvo. 

'G£XDOS(87.U!adrX.hX.aX) fdatiaaO 

Plja 0 caleula la hora y facha da un archlvo (coaparar TOUCH). 

adrX Dlraccldn da la Inforaaclte dal tlaapo (4 byta). 
hX Hsf:dla dal archlvo. 

■X 0: Lear al tlaapo dal archlvo. 1: Pljar al tlaapo dal archlvo. 
Table BIOS 

'BI0S(0.L:adrX) latapbO 

Inlclallsacldn del aaaory-paraaatar-blocJc. 
adrX Dlraccldn dal nuavo MPB. 

rX'BlOSd.dX) constatO 

Dataralna al astado da incraso da una unldad (coaparar 1NP7). 

rX 0: no hay carectar dlaponlbla. -1: cartctar dlsponlbla. 
dX 0: Intarrasa paralala. Is Intarfasa sarlada, 2: Taclado, 

3: Intarfasa MIDI. 

rX*BI0S(2.dX) bconlnO 

Lea a Incorpora un cardctar da una unldad (coaparar IMP). 
rX CarActar laldo a Incorporado (8 bit) . 

dX 0: Intarfasa paralala. 1: Intarfaaa sarlada. 2: Taclado, 

3: Intarfasa MIDI. 

•8IOS(3.dX.bX) bconoutO 

Evidancla un carSccar sobra unldad (coaparar OUT). 

dX 0: Intarfasa paralala, 1: Intarfasa sarlada. 2: Taclado, 

3; intarfasa NIDI. 4; IXBD. 
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bX El csrActer « «vidancl&r. 

cX«B10S(4.n.L:bX.QX.sX.<U) i«Bb«0 

L««r y etcrlbir Mctoros bobre disco. 

rX 0 si surtld un error. 

fX 0: leer, 1: escrlblr. 

bX Dlreccldn da la sooa de aesorla coo los dates. 

Cantldad de sectores. 
sX Ntlaero del sector de Inlclacldn. 

M Nuaero de la dlsquetera (0«A, laB.etc.) 

rX«B10S(5.nX.L:adrX) seceaecO 

Pljar y leer vec tores da eacepciAn. 

rX Para adrX**l el valor del vector hasta el aoaento. 

nX Ndeero del vector da excapclda. 

adrX Huava dlreccldn del vector o -1 (ver rX] . 

rX>B10S(6l tlclccalO 

Sollclta el tlaar del slateaa. 

rX Cantldad de elllsegundoa transcurrldos (reaolucldo en 20as). 

B10S(7.dX) CetbpbO 

Calcula la dlreccldn del bloque de pardBetnie del BIOS de una 
dlsquetera. 

rX Dlreccldn del BPS. 

dX NCiaero de dlsquetera (0*A. I'B.etc.]. 

Rt'BIOSIS.dX) bcostatU 

Calcula el estado da sallda de una unldad (co^arar OVTT). 

rt TRUE si ae puede envlar cardeter. sliw FALSE. 
dX 0: Interfase peraiela. 1: Interfaae serlada. 3s Interfaae MIDI, 
4: clip del teclado (IKB). 

rX>B10S(9.<U) eedlecfan 

Revise, si ha sldo caeblado el disco. 

rX 0: securo qua no, 1: qulzds, 2: caablado. 
dX Nuaero da dlsquetera (0«A, l*B,atc.). 

rX'BlOSdO) dcvBsp<() 

Ravlsa, qua dlsquetaraa estSn acopiadaa. 

rX Vector de bit, bit fljado por dlsquetera (Bit 0*A, Bit l^B. 
etc.). 

rX«BI0S(ll.cX) kbshlftO 
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Calcula o rija el eetado de lee teclea de eonautecldn. 

rj Pars eX>-l estedo actual de las teclaa de conautacldn. 
cX Huevo eetado. Bit Os Shift iequiarda. Bit 1: Shift derecha, 

Bit 2: Control, Bit 3: Alternate. Bit B: Capa*Lock, 

Bit 5: Altemate*Clr/Boaa (tecla derecha del ratdn). 

Bit 6: Altemate^lzseert (tecla Ixqularda del ratdn). 

Table XBIOS 

-XBI0S(0.tJ.L:pX,L:vX) inltratdnO 

Inlclaliza nstlnaa del ratdn (no eoepatlble con OBI). 

tS 0: descaneetar ratdn, 1: conectar ratdn eo aodo relatlvo, 

2: conectar ratdn an aodo relatlvo, 4: ratdn an aodo de teclado. 

pi Dlreccldn da una eatrucoira da Inforaacldn. 
vl Dlreccldn da una rutliia de trataalanto dal ratdn. 

rleXBI0$(2) phjrabaaeO 

Calcula la dlreccldn da la aanorla de la pantalla. 

rl Dlreccldn de la aanorla flelca de la pantalla. 

rX>XBI0S(3) lofbaaeO 

Calcula la dlreccldn de la aeaorla Idflca da la pantalla. 

rS Dlreccldn do la aanorla Idflca da la pantalla. 

rl«XBI0S(<l) ntrezO 

Calcula la reaolucldn actual da la pantalla. 

rS 0; 320x200. I: 640*200. 2s 640ss400. 3: reeervado. 

'XBlOS(S.LsU.LspS.rl) eeUcreenO 

Flja laa dlrecclonaa de lae aanorla da la pantalla y la reaolucldn, el 
valor elfnlflea an todoe loe paranotree no hubo nodlflcacldn. 
Dlrecclonaa aolo an lialtea da 296 byte. 

11 Kueva dlreccldn da la aanorla Idslca da la pantalla. 

pX Hueva dlreccldn da la aeaorla flelca da la pantalla. 

rX Hueva reaolucldn da la pantalla (var XBI0S(4), no conpatlble con 
OEM). 

'XBI0S(6,U:adrX) aetpalectef ) 

Carga una nueva palate da colorea. 

adrX Dlreccldn de una tabla da 16 palabraa, qua cootlena la nueva 
palate da colorea. 

rX>XB10S(7.nX.cX) aatcolorO 

Fljar o aollcltar un re^atro da colorea (coaparar SEtCOLOB). 
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rS Pftra cS — 1 sollcita el reglstco da coloraa Indlcado. 
dX Nijaero dal raslatro da colores {0 a 15J ■ 
ct Huavo color, coo cj*'l ver r)l. 

r$>XB10S(8.L:bX.<U.sacJ.tX.alda;i.nS) flevrdO 

Lae saccorea da un diskette. 

rX 0 si surgld un error. 

bX Direcclte da la zona, en la cual se leen loa sectorea. 
fi Sin uaar. 

dX Ndeero da dlsquetara (0«A, I'B.etc. ). 

sacX NtiMFo da sactor, a partlr del cual aa lea. 

tX Ndaaro da plate (tra<^). da la cual aa lea. 

aldaX Lado dal disco (0 o 1). 

nX Cantldad da aactorea a leer (daban flgurar sobre un track). 
rXXB10S(9.L:bX.L:rX.dX.sacX.tX.sldaX.nX} floperO 

Escribe aactorea aobre disco. 
rX 0 si suTfld un error. 

bX Olraceldn da la zona da saaorla con loa dates a aacrlblr. 
rx Sin user. 

dX Hdaero da dlsquetara (0>A. l*B.atc.). 

sacX Htearo da sactor. a partlr dal cual aa ascribe. 
tX Niiaaro da plata {track), an al cual aa escribe. 
sldaX Lado del disco (0 o 1). 

nX Cantldwl da aactorea a aacrlblr (todos sobre un track). 
rX«XBI0S(10.L:bX.L:rx.dX.sacX. tX. SldaX. IX.LsaX.vX) riopfatO 

Poraataa una plata dal disco. 
rX 0 si sur^d un error. 

bX Olreccldn da una zona pars aleacanaalentos Intareadlos 
(aln.SXB). 
rx sin uaar. 

dX Ndaero da dlsquetara (OsA. l*B.ate.). 

aacX Sectorea por track (noraalaanta 9)- 
tX NOaaro da plata a foraataar (track). 
aidaX Lado dal dlaco (0 o 1). 

IX Factor Intarleava (nomaleante 1). 

Mafic nuabar SHS76^321. 

vX Valor an aactoras daapuda dal fomateo (nonalaanta US5E5). 

-XBI0S(U,nX.L:adrX) aldlusO 

Bvldaocla una zona da aaeorla da la Intarfase MIDI. 

nX Cantldad da bytes a evidanclar aanoa 1. 
adrX Olreccldn da la zona da Maorla a evidanclar. 

-XB10S(13.nX.L:adrX) afplntO 

Nodlflcar vactorea Interrupt dal MTP ( no aa puada uaar an QFA*6AS1C) . 

nX Muaaro da intarrupta (0 a 15). 

MlrX Nuava dlreccldn dal Interrupt a conectar. 
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rS>XB10S(l4.dS) lor«e() 

ct Dlreccl6n dal buffer da datoa pare el Ingreeo y sallda de le 
unldad. 

dt 0: RS 232. 1: IXBD. 2: MIDI. 

'XBI0S(15.bI.hS,ucrS.rarS.UF](.acrS) rsconfO 

Plje loa parAaetroa para la tocerfaaa seriada. 
bS Baudrate. 

bX Handabake-K>dua. 0<eln, 1: XOi/XOf?, 2: RTS/CTS. 3: aaboa. 
uerX Refistro de control USAOT del K^. 
rarX Recelver-Re(latro de eatado del NF7. 
carX Tranaaltter-Reslacro de eatado del HFF. 
acrX Synchronua-ReclAtro de caracteree del HFP 

rX«XB10S(l6.L:usX.L:ahX.L:elX) keytblO 

Hodlflcaclte de laa dlrecclooea de laa tablaa da Inatalaeldn del 
teelado. 

rX Dlreccldn de la eatructura KSYTAB. 
uaX Dlreccldn de la table para teclaa aln Shift. 

ahX Dlreccldn de la table para teclaa con Shift 

clX Dlreccldn de la tabla con Capa*Lock. 

rX'XBIOSd?) randoeO 

Caleula un nuaero al aaar (coaperar RAND. RANDOM). 

rX Un nuaero al aaar de 24 bit ( 0 a 16777215) • 

'XB10S(l6.L:bX.L:aX.dX.fX) protobtU 

Genera un aector boot aobre un dlaco. 

bX Dlreccldn da un buffer (512 byte) para twarar al aector boot. 
aX Hdaaro do aerie . *1; toao la vleja. fljar bit aayor qua 24: al 
azar. 

dX Tlpo de dlaeo(tracka/earaa). 0: 40/1, 1: 40/2. 2i 80/2, 

3! 80 / 2 ). 

fX 0: Sector boot qua no ae puede realltar, 1: realltable, -1: no 
aodlflcar. 

rX>XBI0S{19,L:bX.L:rX,dX,aecX.tX.aldeX.oX) flopvorO 

Coepara aectorea da dlaco eon contenldo de la aona de eaeorla. 

bX Dlreccldn de la zona de eaeorla. coo la cual ae dabo coavarar. 

fX Sin uaar. 

dX Ndeero de dlaquetare (0*A. I'B.etc.). 

aeeX Nuaero da aector a partlr del cual ae ha de coaparar. 

tX Niiaaro de piata (crack). 

aldeX bade de la dlaquetera (0 o 1 ). 

nX Cantldad de aectorea a coaparar. 
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-XBI0S(20) »crd»p() 

LluM !• rutlna Bardcopy (coap«rar HARDCOPY) . 
r)(>XB10S(21.cJ.a{) cunconO 

Flja lot acrlbutat del cursor. 

rS Bn cato da cj*5 Atto da la frecueacla da centelleo del cursor. 
c{ 0: •! cursor. 1: conectar el cursor. 2: conectar al 

centelleo del cursor. 3: detconectar el centelleo, 4: ajustar la 
raxdn da centelleo al valor en aX. 5: ver rX. 
tX Bn caso m qua cX«4, fijar la raadn de centelleo en sX. 

'XBIOS(22,L;tX) bsettlaeO 

AJusta la fecha y la bora (conparar SCTTIME) . 

tX Bic0~4: tefundoa. 5~10: alnutos, 11*15: boras. l6*20: dla. 

21-14: aes, 25*31: ado aenos 1980. 

rX*XB10S(23) bgettlaeO 

Calcula la fecba y la bora (coeparar TINES. DATES). 

rX Inttalacidn de bits ver XBI0S(22). 

'XB10S<24) bloskeyO 

Ajusta la instalacldn ortflital del teclado (coeparar XBI0S(l6)). 

XBI0S(25.nX.L:adrX) IkbdwaO 

Envla dates al chip del teclado (USD). 

nX Cantldad do bytea a envlar aenos 1. 

adrX Olroccldn en la cual fifuran loa dates a envlar. 

'XB10S(26.1X) IdlalntO 

Clerra un Internet HFP. 

IX Huaaro dal Interrupt a corrar (0*15). 

'XBI05(27,1X) JenablntO 

Libera un lnterr\9t del NPP. 

IX maaro del Interupt. 

rS«XB106{ 28 ,dX . recX) flacceas ( ) 

Lee y eecrlbe r^latroe dal sound-chip. 

rX SI bay accMo de lecture rifura aqul el valor del reclstro. 
dX SI hay acceoo de escrltura. Aste es el valor a escriblr (6 bit). 
rX ItCwero del teflatro (0 a 15). con acceao de escrltura de Bit 7 
rijedo. 
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'XBIOS (29 . b*) Of fflbtt ( ) 

Borr« un bit dal ragiatro PORT-A dal «ound-chip. 

bX Dlsaflo da bits, qua se cooacca con al Ofi axlatenta. 

-XBIOS ( 30 . b* ) onglbl t ( ) 

Flja un bit del raglscro P0RT*A dal aound-chlp. 

bS DlaaAo da bita, qua ta conacca con al AND axlatenca. 

XBI0S(31.tX.cX.dX.L:adrX) xbClMrO 

Plja loa tlsar HFP. 

CS Nuaaro dal tlaar (0 a 3) • 

cX Raglatro da Control. 

dX Raflatro da Data. 

adrX Dlracclda da la rutlna Interrupt dal tlaar. 

-XB10S(32.L:adrX) dosoundO 

lAlcla una aacuencla sound, qua sa ajacuta an al Intamipt. 

adrX Diraceldn da la zona da aaaorla da las instrucclonaa sound. 

rX'XBIOS ( 33 . eX ) satprt ( ) 

Plja 0 laa loa parAaatroa da la iaprasora. 

rX Conflfuracldn actual, an caao an qua eX**l. 

cX Bit no rijado/fljado. 0: laprasora da aatrlz/borda da tlpo, 

1: color/aonocroaitlco. 2: 1280/960 puotos por llnaa. 

3: Draft/NLQ. paralalo/aariado, 5: Papal Inflnito/boja 
Individual . 

rX<XB10S(34) kbdvbaaO 

Diraceldn da una tabla con vactoraa dal procasador dal taelado. 
rX Diraceldn dataralnada. 

rX-XBIOS(35.aX.«X» kbrataO 

Plja o laa la razdn da rapatlcidn dal taelado. 

rX Datoa actualaa. Bit 0~7: raxdn da rapatlcidn . 8-15: Tlaapo da 

actlvacldn. 

aX Ratraao an la actlvacldn 
hX Razdn da rapatleldo. 

-XBIOS(36.L;aar*) prtblkO 

Rutlna hardcopy con bloqua da pardaetros. 

adrX Diraceldn da un bloqua da parAaatroa para la rutlna hardccq>y. 
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-XBIOS(37) vsyncO 

Espara al algulenta Vartlcal-blank-iJttarrupt (coaparar VSY)C). 

~XBlCS{3d.L:adrX) supaxacO 

Llaudo da una rutlna aaaaablar an al aodo aupervlaor (aln llaaado del 
alataaa) . 

adrX Dlraccldn de la rutlna aaaeablar. 

'XBIOS(39) puntaaaO 

Daaconacta la AES, an la aadlda an qua no ae encuantra an el ROH. 

rS>XB:0S(64,bX) blitaodeO 

Hanajo y aollcltud dal blitter (aolo an al blitter TOS). 

rS Estado actual dal blitter, cuando bt**l. Bit 1: BacA el 
blitter? 

bX -1: ver rS, aiao Bit 0: fijado al blitter aatl conectado, alno 
aatA daaconactado. Bit 1*14: raMrvado (-1). Bit IS: 0. 


Table de lea Tarieblas L1 a*~A 


Con L‘A aa obtiana la dlraccldn bAaica de laa variables Llne*A: 


(L*A-906} 
L-A-056 . 
{L'A-460} 

L-A-456 


lKr{L*A-W0) 

lKT(L-A-46) 

IKT{L*A-44) 

lXT{L'A-42) 

IKT{L*A-40) 

I>fr{L'A-3fl) 

1KT{L'A-36) 

{L-A-34) 

INT{l,-A-30) 

IKT(l,*A-2«} 

IKT{L-A-26) 

Bm{L'A-24) 

BYT8{L'A-23> 

{L'A-22) 

^{L'A-ia) 

IKT{L-A*16) 

IHT{L-A-12) 

(L-A-IO) 


Dlraccldn dal font-header actual. 

37 palabras, DEFMOUSEM acUvo. 

SaA^ador aobra el font-header actual. 

Array de cuatro sa&aladoras, da loa cualea el dltlao 
dabe ear caro. Cade saAalador saftala sobre una llsta 
ancadanada de frasas da caractaras. Los dos prlaeros 
seAaladores valan para foots rasldantaa. El tercero 
as para el font-QDOS, Asta sc dasplaxa hacia atrAs 
coo cada llaeado da VDI. 

Cantldad total da ascoa fonts. 

Altura da la lines da taxto. 

HAxiaa coluana dal cursor. 

HAxiaa llnaa dal cursor. 

Longltud de una lioaa da taxto an byte. 

Color da fondo del taxto. 

Color dal prlaer piano del taxto. 

Dlreecldn dal cursor an la Baaoria de la pantalls. 
Dlstancia antra la prleara lioaa de taxto y al 
aArgan superior da la pantalla. 

CRSCOL. 

CRSUN. 

Periodo de canteilao dal cursor. 

Cootador dal canteilao del cursor. 

Dlraccldn da loa datoa dal font para el aodo 
BoooeroaAtlco. 

Ultiao carActer ASCII dal font. 

Prlaer carActer ASCII del font. 

Resolucidn horizontal an plxal. 

Dlraccldn de la table de offaat del font. 
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WT{L-A-A} 

lHT{L*A-0) 

IKTtL-A.J} 

Un'(L-A»4} 

{L-A»8) 

{L'A»I2} 

(L*A*16) 

(L-A*20) 

IKr{L-A»24) 

IWT{L-A*26) 

IWr{L*A*28) 

Off(L'A*30) 

Dn'{L-A-»32> 

INT{L-A»34} 

INT{L-A*36) 

IKTIL-A»38) 

IKT{L*A*44} 

(L'A*46) 

{L'A*50) 

1NT(L-A.52) 

INT(L-A*54} 

I(rr(L*A»56) 

1KT(L*A»64) 

ifrr{L'A»66} 

IKr{L-A»68) 

I«'{L-A*70) 

dit|l-a*72} 

Ufr(L-A*74) 

iyr(L'A*76) 

UfT(L*A»78} 

Un'(L'A*80) 

U(T{L'A*82} 

(L-A.84) 

{L-A.88) 

1HT{L-A*90) 

lWr{L-A.92» 

IWr{L*A»94) 

INT(L'A»96> 

INT{L-A»98) 

IOT(L*A*100) 

IKT{L*A*102} 

Ilff{L'A»l04) 

mr{L-A*io6} 

{L'A«108) 

Dn-{L’A*a2} 

iwra-A-iW) 

Dfr{L-A»U6) 

{L-A*ll8) 


Rosolucidn vertical «n pixel. 

Cantldad bltplanes. 

Bytes por lines ds la pantells. 

Senela^r sobre el ce^o COKTBL. 

SeAalador sobre el caepo INTIN. 

SeAal^or sobre el caepo PTSIN. 

Seflslador sobre el caepo IKTOUT. 

SeAalador aobre el caepno PtSOUT. 

Valor del color para el bltplane 0. 

Valor del color para el bicplaoe 1. 

Valor del color para el bltplane 2. 

Valor del color para el blcplaae 3< 

Flas. no dlbujar el dltlao pixel da una lines. 
OlseAo da lineaa. 

Graphnode. 

haata 

2 pares da coordsnadas 

SeAalador sobre el dlsaAo actual da relleno. 
SeAalador sobre la aAscara actual da relleno. 
nag para relleno eultlcolor. 

Clipplnfflac. 

haata 

Coordenadaa del cllpplnc. 

Factor de aapllacldn. 

Dlreccldn de la aepllacldn. 

Flac para lecra proporclonal . 
orraet X para Textblt. 

Offset y para Textblt. 

Coordenada x de un carActer de la pantalla. 
Coordenada y da un carActer de la pantalla. 

Ancho de un carActar. 

Altura de un carActar. 

SeAalador sobre lease da frase da carsctsres. 

Ancho del lease de frase de caractares. 

Bstllo del taxto. 

KAscara pare la sallda soabreada del taxto. 

KAscara para latra curalva. 

Ancho adlclonal para latra sruesa. 

Offset de lecra cursive darecha. 

Offset de lecra curalva Itqulerda. 

Flas de asvllacldn. 

Anfulo de rotacidn del texto. 

Color del taxto. 

SeAalador aobre buffer para afectoa del taxto. 

Offset para un sesundo buffer de esta tlpo. 

Color del fcodo dal texto. 

Flas para copy raster fora. <>0 para transparence. 
SeAalador sobre una rutlna. 4ue hece poelbla detanar 
el proeeso de relleno. an 3-0 eodlflcado por 
SMf t-Alteniat**Cantrol . 


Table de loa parAnecroe de Inc'eao para V_0PM{e)HK 
Salvo X opclonal, luego loa slsulntas valores default: 

X Nuaaro de Identlflcacldn dal sparaco (estAndarO 
1 ..: Pantalla 11..: Plotter 
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21 lapresora 31..: Mecaflle 

4l Ctaara 51..; Tabla da grAflcoa 

1 Tlpo da llnaa. 

1 Color da la llnaa. 

1 Tlpo da aarcacldn . 

1 Color da aarcaclta. 

1 Eatllo dal taxto. 

1 Color dal taxto. 

1 Tlpo da rallano. 

1 Bacllo da rallano. 

1 Color da rallano. 

2 Siateaa da eoordanadaa (0: NDC, 1: raaervado, 2: RC). 


Tabla dal caapo da UORK.OVT dal VDI 


Con V 0PN(v)WK aatdn lot valoraa da lot rasultadoa an INTOUT(O) a 
Ufr0UT(44) y an PlSOirr(O) a FISOUTUl). 


woRK_oirr(0) 
WORK oirr(i} 
WORk30'JT(2) 

WORK 0irT(3) 
woRx~oirr(4) 
WORKIoOT(5) 

WORK 0VT(6) 

W0RK"0UT(7) 

voMCovtii) 

WORK^OVrO) 

woHK_otrr(io) 
WORK oirrui) 

WORK 0in’(12) 

wcHw"ovr(i3) 

W0RK~0Vr(l4) 

W0RK"0VrU5) 

W0RK'‘0VT(24) 


W0RK_0UT(25) 

woRX_oirr(34) 


woRK_oirr(35> 

WORK 0UT(36) 
WORK‘OUT(37) 


Ancho BdxlBO an plxal. 

Altura B&xlaa da la laacen an pixal. 

0: Ea poalbla la aacala axacta da la laAgan, 1: no as 
potlbla. 

Ancho da un plxal an ticrOnatroa. 

Altura da un plxal an alcilaatroa. 

Cantldad do alturaa da lot caracteras da lotras (0: se 
puada aodlflcar). 

Cantldad da tlpoa da llnaat. 

Cantldad da anchot da llneaa (0: aa puada aodiricar). 
Cantldad da alabolot da aarcaclbn. 

Cantldad da taaaAoa do lot alabolot do aarcacldn 
(0: te puada aodlflcar). 

Cantldad da fraaaa da caractarea. 

Cantldad da dlaaftoa. 

Cantldad da dlaoflot da aoabraado. 

Cantldad da coloret pradaflnldot. 

Cantldad do runclooaa bdalcat para irAflcot (GDP), 
hattt 

Lltta do runclonat bdalcaa para crtfleoa (GOP).Sa 
tottlenen dlat Punclonea bdtlcas: 

1 : bar 2;arc 3:pld 

4: circle 5: olllpta 6: elliptical arc 

7 : alllptlcal pit S: rounded rectangle 

9: flllad rounded rectangle 
10: Juatlflad graphic text 
B1 final da aata llata aatt aarcado con -1. 
haata 

Idtta da atrlbutoa da laa funclonaa bdalcaa para 
grdflcoa: 

0: llnaa l:aarca 2: taxto 

3; tone rellenada 4:aln atrlbuto 

0: lot coloret no aa pueden repraaentar. 1; ae puedan 

repretantar. 

0: El taxto no ae puada rotar. 1; aa puada rotar. 

0: no aon poalblat funclonaa da relleno. 1: aon 
potlblea. 
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HORX_OVT<38) 0: CELLARIUy dlapoolbl*. 1: no dlaponlbla. 

WORK~OOT(39) Cantldad da eoloraa a repraaantar: 0: aAa da 32767. 

1 : Bonoccoaitlco. aayor qua 2 : cantldad da eoloraa. 
W0RK_0VT(40) 1 : Poalclooa al cursor da crAflcoa aolo con al 

taclado. 2 : coo taclado y ratdn. 

W0flK_0in'{4l) Aparaco do Ingraao da valoraa: l:Taclado. 2: otro 
apart CO. 

W0RK_0VT(42) Taclaa da aalaccldn: 1 : toclaa da funclOn, 2: otraa. 
WORX_OUT(43) Cantldad da aparacoa da Incraao da atrlnca: 

1 : taclado. 

WOSX_OUT(44) Tlpo da aataclta da trabajo: 0: aolo aallda. l:aolo 

Insraao, 2: Infraao/aallda, 3* raaarvado, 4: aataflla. 
WORK_OVr<451 Ancho alnlKi dal cardetar. 

WOHK_CVTj46) Alcura alnlaa dal carAccar. 

WORK_OUT(47) Ancho aAxlao dal cardccar. 

WORK_OUT(48) Alcura aAxlaa dal cardccar. 

WOAK_Ol7r(49) Ancho alnlao vlalbla da la llnaa. 

WORK_(X;r(30) Raaarvado. aleapra 0. 

H0W(_0Vr(51) Ancho da llnaa adalao an dlraccldn a. 

W0RX_0(rT(52) Raaarvado. aleapra 0. 

WORX_Oirri53) Ancho alnlao da aarcacldn. 

W0RX_0irr(54) Alcura alnlaa da aarcacldn. 

W0RX_0in'(55) Ancho do aarcacldn. 

W0RX_0(n'i56) Alcura aAxlaa da aarcacldn. 


Tabla VT 52 

Laa ruclnaa dal VT 52*aaulacor aa puodan llaaar ovldanclando al acrlng 
da la algulanta tabla a trav«a da PRINT. 

CHRS(27)**A*i Cursor para arrlba (aa datlona an al borda suparlor). 
CHRS(27)**B*; Cursor para abajo (aa datlona an al borda Infarlor) . 
CKRt ( 27 ) * *C* i Cursor daracha (aa datlona an al borda darscho). 
CHRS(27)*’S*; Cursor laqularda (sa datlona an el borda Itqulardo). 
CHR>(27)*''E': Borrar pantalla (CIS) . 

CKRI(27)*''H'i Cursor al aatroao Izqulardo suparlor (LOCATE 1.1). 
CKRI(27)**I*: Cursor para arrlba (scroll an al borda suparlor). 

CKRt(27)**J*| Borrs la pantalla a parcir do la poalcldo dal cursor. 
CKRI(27)**K*; Borrs llnaa a partlr da la poalcldn dal cursor. 
CNRt(27)**^*: Inaorta llnaa an bianco an la poalcldn dal cursor. 

CHRI<27)**H*; Borro llnaa an la poalcldn dal cursor (si rssco ss 
arraaersdo pars arrlbs). 

CHKS(27)«*Y*>CI(RS(s*32)*CSR(s*32): Bqulvale s LOCATE a.t. 

CHRS(27)**b*«CHitS(P); Ellfs f coso color ds ascrlturs. 

CHnt(27)**d*: Borrs pantalla hasta la poalcldn dal cursor . 

CKR$(27)**a’i Conactar cursor. 

CHRS(27)*''f*i Dssconectar cursor. 

CKnt(27)*'J*: Alaacanar Is peslcldn dsl cursor. 

CKRt(27)*''k*: Pljar cursor an Is peslcldn alaacanada da 

CJ0W(27)**J*. 

CHRt(27)**l*: Borrar llnaa an qua aa encuentra el cursor. 

CHRS(27)**o*: Borrar llnaa haata la poalcldn dal cursor. 

CKRt(27)**p*: Conactar latrs Invartlda. 

CKRS(27)*’q'': Daaconectsr lotra Invartlda. 

CHRS( 27 )«*V; Conactar al paaaja autoaAclco da llnasa. 

CKRS(27)*’w*: Daaconactar al paaaja autosAtlco da llnasa. 
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AKEXO 


Heaaajei d« error del GPA-BASIC 

0 Dlvlsldn por cero 

1 Deabordaelento 

2 KCeero no enteroI-2l474e3648 . . 2l474«3647 

3 Niieero no bytelO . • 255 

4 Nueero no pelabreI-32766 . . 327^7 

5 flalz cuadrada aolo para I nuaeroa poslcivoa 

6 Logarltaoa aolo para Inuaeroa sayorea que cero 

7 Error desconocldo 

8 Meeorla liana 

9 Puncldn o inatruccldn 1 aiin no ea poalble 

10 Strln( deaaaiado largolaax. 32767 caracceres 

11 No ea prorraaa en CPA-BASlC-3-00 

12 Prograaa deaaaiado largol aeaorla coepleea I NEW 

13 No ea profraea en QPA'BASICIEOP - NEW 

14 Caapo dlaenalonado doa vacea 

15 Caapo no dlaenalonado 

16 Indlca del ca^o deaaaiado franda 

17 Die deaaaiado (randa 

18 Caotldad errdnea de Indlcaa 

19 No ae encontrO el Procedure 

20 Ho ae encontrd el Label 

21 Solo perelee en Opmil'l'nput “0‘utput "R*andoaI"A"ppend 
’U’pdata 

22 Pile ya ablerto 

23 Pile lerrdneo 

24 Pile no ablerto 

25 Insraao errOneo. no ea un niiaero 

26 Se alcanzd el final del fllelEOP 

27 Oeaaaladoa puntoa para 1 polyllne/Polyflll I nAxlao 126 

28 El caapo debe aer unldlaenalonal 

29 Cantldad de puntoa aayor que el caapo 

30 Herse - Nln«<ln ASCII-Plla 

31 Herge - llnea deaaaiado larga - detencldn 

32 ••> Slntaxla Incorrecta 1 detencldn del prograea 

33 Karen no deflnlda 

34 Nuy pocoa Data 

35 Dat no nuadrlcoe 

37 Dlakette coapleto 

38 Inatruecido en aodo di recto I no ea poalble OOSUB 

40 CLEAR no ea poalble en I lo<va Por-Hext o en 1 Procedurea 

41 Cont no ea poalble 

42 Muy pocoa parAaetroa 

43 Baprealdn dMaalado coapleja 

44 Puncldn no deflnlda 

45 Deaaaiadoa parAaetroa 

46 ParAaetroa errttieoa 1 nlngOn nuaero 

47 ParAaetroa errdneoa 1 nlngiin atrlng 

46 Open *R' - longltud arrOnea de la oraeldn 

49 Deaaaiadoa 'R**fllee (aax.31) 

50 HlngCin *R'-file 

52 Caapoa aia largoa qualonglcud de la oraeldn 

54 asr/PUT Fleld'Strlnc Ilongltud errdnea 

55 aet/PVT nuaero de oraeldn errdneo 

60 Longltud Sprite-String errdnea 

61 Error en RESERVE 

62 Menu errdneo 

63 Reserve errdnea 
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64 Pointer err6neo 

65 TaaaAo del caepo <25^ 

66 Pointer errdneo 

67 ASIN/ACOS errtneo 
66 Tlpo de VAft errdneo 
69 QtDPUNC 9ln RETURN 

71 Indlce deeaalado grande 

90 Error en Local 

91 Error en For 

92 Reauae {next) no as poslble I Fatal. For o Local 

93 Error de pile 


Kaasajea de error boebe 


100 

102 

103 

104 

105 

106 
107 
lOd 

109 


GFA-BASIC Version 3 . 001 C<vyrlght 1986-1986ICFA Systeacecbnlic OabH 

2 boabas - Bus ErrorlPeek/Poke errdneo? 

3 noabas - Adress errorl dlreccldn lapar de palabraatl 

Dpoke/dpeek, Lpoke/t 4 >eek? 

4 boabas - Illegal Instruction 1 Instruccldn de aiqulna no vilido 

5 boabas - Divide byZero 1 68000 Division por cero 

6 boabas - CKK-Excepclon I 66 OOO Instruecldn CHK 

7 boabas - TRAPV'Exceptlon 1 68000 Inatniccibn IRAPV 

6 boabas - Privilege Violation 1 66000 violacldn da prlvileglo 
9 boabas - Trace Exception I 68000 Trace sin Monitor 


Measajes de error TOS 

•1 * Error general 

-2 * Drive not reedy I Se traspasd el tleapo 
-3 * Instrucclbn deseonoclda 

-4 * Error CRC I Suaa de pru^a del diskette errbneo 
•5 * Bad request 1 Inatrueclbn no vfcllda 
•6 * Seek error I No se hallo la trass 
-7 • Unknown Media I Sector boot errdneo 
•8 * No se hallo el sector 
-9 * Sin papel 
•to * Error de escrltura 
-11 * Error de lecture 
*12 * Error general 12 

-13 * Diskette protegldo. no s« puede escriblr 
-14 * Se caabld el diskette 
-15 * Aparato desconocldo 
-16 ■ Bad sector (Verify) 

•17 * Inserter otro diskette 

-32 * Nilaero de funcldn no vdlldo 

•33 * Ho se hallo el archlvo 

-34 * No se hallo el noabre del caalno 

-35 * DMaslados archlvos ablertos 

•36 * Acceso no es poslble 

-37 * Handle no vglido 

-39 * Heaorla coapleta 

-40 * Direction del bloque de aeeorla no vgllda 
-46 * DesipiaclOn errOnee de la dlsquetera 
-49 * No hay otros datos 
-64 * Error de sons GSiDOS I Seek falso? 

-65 • Error Interno do C3ID0S 

•66 * No es progress blnarlo 

•67 * Error del bloque de la eeaorla 
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